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

##</code><code>##

open (PATTERN, "<", "$html_dir/$FigFile/$DirFile") or die "Unable to 
+open pattern file: $1";

##</code><code>##

open my $PATTERN, "<", "$html_dir/$FigFile/$DirFile"
   or die "Unable to open pattern file: $!";

##</code><code>##

DoSomethingWithFile($PATTERN);

##</code><code>##

sub DoSomethingWithFile {
   my $FH = shift @_;

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