in reply to How do I read an entire file into a variable?

#!/usr/bin/perl
open(FILE,"</path/to/file");
undef $/; # this makes the following line pull in everything instead o
+f just the first line
$contents=<FILE>;
close FILE;

[download]

In Section Seekers of Perl Wisdom