@stuffin = <STDIN>;
open(tofile,">/tmp/filename");
foreach $line(@stuffin)
{
    print tofile "$line";
}
close tofile;