Adding a standard Perl file open function to each script I have is a bit annoying:
sub openfile{ (my $filename) = @_; open FILE,\"$filename\" or die
I think this is what you are looking for
File::Slurp