Select Code to Download

opendir(DIR, '.') || die "Couldn't opendir: $!\n";

...
    }
    rename($filename, $new_name) unless $filename eq $new_name;    
    close(DIR);

Insecure dependency in rename while running with -T switch at ...