Help for this page

Select Code to Download

Select or download this

#!perl -l
sub foo {
...
}
foo;
print 'yes' if $ENV{foo} eq '1';