Select Code to Download

use IO::Scalar;
my $data;
...
print HACK <STDIN>;
tied(*HACK)->setpos(0);
*STDIN = *HACK;

use IO::Scalar;
$data = join '', <STDIN>;
...
tie *STDIN, 'IO::Scalar', \$s;
print STDIN $data;
tied(*STDIN)->setpos(0);

print $data;
print <STDIN>;