#!/usr/bin/perl -w
use strict;

my $file = $ARGV[0];

while(<$file>){
print $_;
}