#!/usr/bin/perl -w

#
# Examples of the file test unary operators.
#

print "What file should I test ? ";
chomp( my $filename = <> );

if (-e $filename) {
  print " yes, '$filename' exists. \n";
}
else {
  print " nope, '$filename' does not exist. \n";
  exit;
}

my $size = -s $filename;
my $age = (-M $filename) * 60.0*60.0*24.0 ;

print "
 Size = $size (in bytes)
 Last modified = $age (in seconds) 
";