use Net::FTP;

...

$result=$ftp->get($control_file,"$destpath\\$control_file");