#!/usr/bin/perl -w

use strict;
my $filename = shift;
my $line;
open (FILE, "$filename") || die "Couldn't open file: $!\n";
do {$line = <FILE>} until eof;
print "$line";