Merge branch 'sdilena_vetev'

[test/testrepo.git] / variable_wont_stay_shared.pl

#!/usr/bin/perl -w

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

f();

sub f {
       $x = "tucnak";
}