Help for this page

Select Code to Download

Select or download this

use Path::Class qw(dir file);
use Time::localtime;
my $dirpath = dir("/waslogs1/vfoneLog/cposapp");
...
} $dirpath->children;
$outfile->print($_->basename, "\n") for @names;
$outfile->close or die $!;