#!/usr/local/bin/perl
print ("Enter the name of the file:\n");
$filename = ;
chop ($filename);
if (!(-e $filename)) {
print ("File $filename does not exist.\n");
} else {
$size = -s $filename;
print ("File $filename contains $size bytes.\n");
}