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

sub filetest {
    
    my @answer;
    return "File does not exist"
         unless -e $_;
    

}


while (<>) {

      my @answer =  &filetest($_);
}