Select Code to Download

my $output = <STDOUT>; 
print STDOUT "$input";

open OUT, '>', 'c:/users/lastgen/docs/saved_ppid' 
        or die "unable to open out file $!";       
print OUT "something";