while(defined $line=<STDIN>)
{
 so something
}