#!/usr/bin/perl

my $read=shift @ARGV;

open IN, $read or die "Can't open file";

	my @lines=<IN>;
	my $temp="@lines";
	
		print $temp;