#!/usr/bin/perl
use strict;
use warnings;

print "Exists\n"            if -e "out.txt";
print "Zero-Size\n"         if -z "out.txt";
print "Non Zero-Size\n"     if -s "out.txt";
print "Directory\n"         if -d "out.txt";

# there are numerous more file test operators