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