asked on
#!/usr/bin/perl -w
use strict;
print "Content-type:text/html\n\n";
#list of files we need to check for
my ($Each_Files, @Array_Files,@Server_List );
@Array_Files = qw(
/perl/Download/file1.loaded
/perl/Download/file2.loaded
/perl/Download/file3.loaded);
@Server_List = qw(host1 host2 host3);
foreach $Each_Files ( @Array_Files) {
if (-e $Each_Files)
{
print "Successfull! \n";
}
else {
print "Not Successfull! \n";
}
}