...
# Do some work
my @files = glob('/root/fd/fg/*.txt');
sleep(4);
foreach my $file(@files) {
...