<P>
#!/home/toma/perl58i/bin/perl
#!/home/toma/perl58i/bin/perl -d:ptkdb
#
# Tom Anderson
# Sat Jan 11 12:31:00 PST 2003
#
# Program to try out File::Slurp
#
#

my $VERSION=".01";

use strict;
use warnings;
use diagnostics;

use File::Slurp;

my $filename = "/etc/passwd";
my $all_of_it = read_file($filename);

print $all_of_it;