#usr/local/bin/perl

$document = <STDIN>;

if (open (FILE, "<" . $document)){
	while(<FILE>){
		print;
	}	
	close(FILE);
}
else {
	print "Can't open\n"
}