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