Select Code to Download

if ($file = glob(($base)."*.txt")){
   # ...
}

#!/usr/bin/perl
use strict;
...
foreach my $file ( glob qq($base/*.txt)  ) {
    File::Copy::move $file, $dir_for_today  or  warn "Can't move $file
+ to $dir_for_today : $!";
}

#!/usr/bin/perl
use strict;
...
foreach my $file ( glob File::Spec->catfile( $base, '*.txt' ) ) {
    File::Copy::move $file, $dir_for_today  or  warn "Can't move $file
+ to $dir_for_today : $!";
}

#!/usr/bin/perl
use strict;
...
foreach my $file ( glob File::Spec->catfile( source( \%config ), '*' .
+ extension( \%config )  ) ) {
    File::Copy::move $file, $destination  or  warn "Can't move $file t
+o $destination : $!";
}

#!/usr/bin/perl
use strict;
...

print STDERR Mover->new()->move()->warnings();