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