#!C:/Perl/bin/perl -w
use strict; # variablen jetzt mit 'my' deklarieren
use warnings;
use CGI; # das CGI-Modul ist sehr praktisch
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html'); # früheres print "Content-type:..."

my $fahr = 33;

my $temp = $cgi->param('fahrenheit'); # die Benutzereingabe bekommen
if(defined($temp)){
  $fahr = $temp;
}

my $cel = 0;
$cel = ($fahr-32)*5/9;
print"$fahr Grad Fahrenheit entsprechen",sprintf("%3d Grad Celsius\n",$cel);