open(my $fh, "somefile.txt") or die("Ack - $!");
filemunger($fh);
# and so on and so forth