if ($#ARGV !=0){die ("Enter a file on command -line\n")
}
open(file, $ARGV[0]) or die("file could not be opened!\n");
while($line = <file >){
	unshift(@lines, $line);
}
close(file);
while(@lines>= 0){
	print(shift(@lines));
		}