sub DoSomethingWithFile {
   my $FH = shift @_;

   <code>
   while (<PATTERN>){
        # do stuff here
   }
}