open F, '<', $in_file or die "Can't open $in_file: $!";

##</code><code>##

while (<F>) {
  push @lines, $_ unless /espf\[/
}

##</code><code>##

return undef if not defined $in_file;
if (-e $in_file) {
  if (-r $in_file) {
    open F, "<", $in_file or die "Can't open $in_file: $!"
# etc
  } else {
    warn "can't read $in_file\n";
    return undef;
  }
} else {
  warn "bad file $in_file submitted, but does not exist\n";
}

##</code><code>##

    $ myprogram file1 file2 file3

##</code><code>##

    while (<>) {
        # do something with $_
    }