#!/usr/bin/perl

use strict;
use warnings;

my $file=shift or die "Usage: $0 <file>";
open my $fh, $file or die $!;
print scalar <$fh>;

__END__

##</code><code>##

$ ./foo.pl 'ls|'
449133.pl