use strict;
use Time::localtime;
use Fcntl;

my $dir="/path/to/bin/perl";
my @perl=();


# Main Program Block
MAIN: {

sysopen (STDOUT, "$dir/TEST.NEW", O_RDWR | O_CREAT ) or die "Cannot open TEST.LOG: $!";
open (STDERR, ">>&STDOUT") or die "Cannot dupe STDOUT to STDERR: $!";
flock(STDOUT, 2) or die "Cannot lock filename: $!";

opendir (DIR, "$dir") or die "Cannot open $dir: $!";
@perl=grep { /\w\.pl/ } readdir DIR;

print "@perl\n";

foreach (<@perl>) {print "\$_ is $_\n";}
sleep (60);

close (STDOUT);
close (STDERR);

}