#!/usr/bin/perl

my $file = shift;

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

print $input;