Select Code to Download

 #!/usr/bin/perl -w
use strict;
use Net::FTP;
...
$ftp->move("test.bak","test") or die $ftp->message;

$ftp->quit;