Napali.ch /perl

#!/usr/bin/perl -w

use strict;
use IO::File;

my $file = shift;
my $fh = IO::File->new($file)
    or die "constructor failed: $!";
print while <$fh>;
$fh->close;

=head1
use IO::File;

my $fh = IO::File->new(");
undef $fh;
=cut