With a little help from the Perl Cookbook:

#!/usr/bin/perl -w

use strict;
my $filename = shift;
my $line;
open (FILE, "$filename") || die "Couldn't open file: $!\n";
do {$line = <FILE>} until eof;
print "$line";
[download]

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/