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

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