#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

for my $file (@ARGV) {
    -e $file or next;
    say "`$file' exists!";
    say "`$file' is ", ( $_->[1]() ? "" : "not " ), $_->[0]
    for [readable   => sub () { -r _ }],
        [writable   => sub () { -w _ }],
        [executable => sub () { -x _ }];
}

__END__