use strict;
use Net::FTP;
my $host = 'mysite.net';
my $login = 'mylogin';
my $passwd = 'mypasswd';

my $ftp = Net::FTP->new($host);
my $RC = $ftp->login($login, $passwd);
if (not $RC) {
   print "\n\nFTP Login to Remote Host: '$host' failed!\n\n";
   print "No files updated from Remote host: '$host'!\n\n";
   exit;
}

### Delete local copy of remote host ftp files
my $infile = "test" . ' ' . "file";

### also the following works too
# my $infile = "test file";
if (-e $infile) {
   unlink $infile;
}

### Make new local copy of remote host ftp files
$RC = $ftp->get($infile);
if (not $RC) {
   print "\n\nget command for remote file: '$infile' failed!\n";
   print "No files updated from Remote host: '$host'.\n\n";
   exit;
}

$ftp->quit;
print "Finished!";