28 lines
310 B
Perl
28 lines
310 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use IO::File;
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
|
||
|
|
my $script = basename($0);
|
||
|
|
my $USAGE = <<USAGE
|
||
|
|
Usage: $script <infile>
|
||
|
|
USAGE
|
||
|
|
;
|
||
|
|
|
||
|
|
if (!defined $ARGV[0]) {
|
||
|
|
die $USAGE;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $infile = $ARGV[0];
|
||
|
|
open(DAT, $infile) or die "$infile: $!";
|
||
|
|
print <DAT>;
|
||
|
|
|
||
|
|
close(DAT);
|
||
|
|
|
||
|
|
|
||
|
|
1;
|
||
|
|
__END__
|