Help for this page
Select Code to Download
Select
or
download this
sub s1 { my $data = pop; ... } s0;