Select Code to Download

opendir AREA, "/files1/logs";
@job_logs = grep /job_log/, readdir AREA;
...
{
print "File: $_\n";
}

while(</files1/logs/job_log*>
{
print "Log: $_\n";
}