line1
line2
line3
line4
line5

##</code><code>##

#!/usr/bin/perl

my $file = shift;

local( $/, *INPUT );
open(INPUT, $file);
$input = <INPUT>;

print $input;