Select Code to Download

$ cpan
> install File::Slurp
...

$ vi t.pl

<P>
#!/home/toma/perl58i/bin/perl
...
my $all_of_it = read_file($filename);

print $all_of_it;