Help for this page
$ourVAR = "123 ABC"; { ... __END__ my packAA ourVAR = 456 RST our packAA ourVAR = 123 ABC
package Foo; our $foo = 'bar'; package main; print $foo,"\n"; # bar
# file foo.pl use strict; our $shared = "one fish";
# file bar.pl use strict; our $shared =~ s/e f/e half f/;
#/usr/bin/perl use strict; ... print $shared,"\n"; __END__ one half fish
www.com | www.net | www.org
No recent polls found