Skript na testovani variable won't stay shared

diff --git a/variable_wont_stay_shared.pl b/variable_wont_stay_shared.pl
new file mode 100644 (file)
index 0000000..624a398
--- /dev/null
+++ b/variable_wont_stay_shared.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+print "Content-Type: text/plain\n\njezek.\n";
+my $x = "krtek";
+
+f();
+
+sub f {
+       $x = "tucnak";
+}
+