Select Code to Download

print "Hit <Enter> to continue\n"; 
my $y = <STDIN>;

> foo.pl

> perl foo.pl

=head1 NAME

...
}

1;