There are multiple ways to do a file slurp:
http://sites.google.com/site/oleberp...2-slurp-a-file

personaly I prefer:


use File::Slurp qw(slurp);
my $body = slurp($filepath);