Nice prior discussion on doing this same type of thing.

http://perlmonks.org/index.pl?node_id=50525

Which has one of my favorite snippets:

my $contents = do { local( *ARGV, $/); @ARGV = $file; <> }; # Slurp Fi
+le contents
[download]