open( IN, "<", $file ) or die "Can't open: $file: $!\n";
my $str = do { local $/; <IN> };
close( IN );
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.