Select Code to Download

my $gifdir_name = "/home/tony/perl/pmbencor";
opendir my $gifdir_dh, $gifdir_name
...
    move "$gifdir_name/$file", "$there/$new_name"
        or die "Can't move '$file' to '$new_name': $!";
}