#!/usr/local/perl/bin/perl
#
# file:    far2cel
# purpose: Farenheit to Celsius converter
# created: pasha oct 7 2007
#

use strict;
use warnings;

if (scalar (@ARGV) != 1)
  {
	print (STDERR "Wrong number of arguments. Try --help\n");
	exit (-1);
  }	
if ($ARGV[0] eq '--help')
  {
	print (STDERR "Converts Farenheit to Celsius. Usage: far2cel <farenheit>\n");
	exit (0);
  }

print (($ARGV[0] - 32)*5/9 . " C\n");
exit (0);
      
__END__