#!/usr/local/bin/perl

print ("Enter the name of the file:\n");
$filename = <STDIN>;
chop ($filename);
if (!(-e $filename)) {
        print ("File $filename does not exist.\n");
} else {
        $size = -s $filename;
        print ("File $filename contains $size bytes.\n");
}
