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

sub filetest {
    my @answer;
    return "File does not exist\n";
         unless -e $_;
    push @answer, "readable "
         if -r $_;
    push @answer, "writable "
         if -w $_;
    push @answer, "executable "
         if -x $_;
    return @answer;
    

}

while (<>) {
      s/\s*$//; 
      my @answer =  &filetest($_);
      print @answer;
}