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

print "Content-type: text/html\n\n";

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