#!/usr/bin/perl

use strict;
use warnings;

my %test = (
    '-f' => 'a data file',
    '-d' => 'a directory',
    '-r' => 'readable',
    '-w' => 'writable',
    '-x' => 'executable',
    );

die "Usage:  $0 [path/]file.name ...\n" unless @ARGV;

for my $file ( @ARGV ) {
    my $report = "$file does not exist\n";
    if ( -e $file ) {
        $report = "$file exists and is:\n";
        for my $t ( sort keys %test ) {
            $report .= " ... $test{$t}\n" if ( eval "$t _" );
        }
    }
    print "$report\n";
}