#!/usr/bin/perl

# Here, in order to invoke the program, the user must supply the name of a file
# that residnes in the same directory. If not, the program will rpint an error 
# message.

$check = open FILE, @ARGV[0];

if (! $check){
print "Wrong file cited by user.\n";
}

else {
print @ARGV[0];
print ":\n";
	while(<>) {
	 print $_;
		}
	print "\n";
}