#!/usr/bin/perl -w

if (eval join (" or ", map {$_=" -e '".$_ ."'"}@ARGV)) {
    print "Hooray at least one of the the files exists";
} else {
    print "Hohum neither of the files exist";
}