#!/usr/bin/perl -w
use strict;
use Net::FTP;

    my $file="filename";
    my $rdir="/path/to/remote/dir";

    my $ftp = Net::FTP->new("yourhost.com", Debug => 0);
    $ftp->login("username",'-username@');
    $ftp->cwd("$rdir");
    $ftp->get("$file");
    $ftp->quit;

##</code><code>##

my $ldir="/path/to/local/script";
system("mv", "$rdir$/$file", "$ldir");