while ( my $line = <Input> )
{ 
   #do stuff; print output
}