#!/usr/bin/perl -w

print "Content-Type: text/plain\n\njezek.\n";
my $x = "krtek";

f();

sub f {
       $x = "tucnak";
}

