#!C:/Perl/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
$fahr=0;
$cel=0;
print 'Geben Sie eine Temperatur in Fahrenheit ein:';
chomp ($fahr=<STDIN>);
$cel=($fahr-32)*5/9;
print"$fahr Grad Fahrenheit entsprechen";
printf("%d Grad Celsius\n",$cel);