Select Code to Download

use strict; use warnings; use 5.010; 
use IO::Handle;
...
<STDIN>; 
close $P;
__END__