open(FH,"<&STDIN") || die "Error with copying STDIN to FH : $!\n";

while ($inbuf=<STDIN>)
{
    print $inbuf;
}

seek FH,0,0;
while (<FH>)
{
    print $_;
}
close(FH) || die "Error closing FH: $!\n";
exit;

##</code><code>##

while ($inbuf=<STDIN>)
{
    print $inbuf;
}

seek STDIN,0,0;
while (<STDIN>)
{
    print $_;
}
exit;