Select Code to Download

use Net::FTP;

...
# And you don't need to backwhack the "/"
$ftp->get("$file","$dir\/$file") or die "File:    $!";
$ftp->quit;