sub { my @files = map { chomp; (< $_ >) } @_;


                        my $return;


                        if (!@files){


                        $return=0;


                        }


                        else {


                          while (@files){


                            if (! -f $_){


                                $return=0;


                            }


                            print "\t  Found files:\n\t  " .


                            join (",\n\t  ", @files) . "\n" if


                            ($DEBUG);


                            $return=1;


                            return $return;


                          }


                        }


                      };