Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
      my @answer =  &filetest($_);
      print @answer;
}

return "File does not exist\n";
         unless -e $_;