#!/usr/bin/perl -w
# dump the contents of a file from the command line using Futils.pm
use
Futils
;
my
(
$f
)
=
Futils
->
new
();
print
(
$f
->
load_file
(
$ARGV
[
0
]));