stat $mode

file_test.pl

use 5.010.1;
use strict;
use warnings;

for (@ARGV) {
  say "[ $_ ]";
  say " - $_" for file_test($_);
}

sub file_test {
  my $file = shift;
  my @mode;

  return "\Unot found" unless (-e $file);

  push @mode, "readable" if -r _;
  push @mode, "writable" if -w _;
  push @mode, "executable" if -x _;

  return @mode;
}