Select Code to Download

use strict;
sub bar{
...

print ( "foo said '".foo()."'\n");
print ( "bar said '".bar()."'\n");

localhost:~# perl /tmp/z.pl
foo said '1'
...
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.

localhost:~#