use Net::FTP;
my $mytime = localtime;
my $file = "filea"

# Set up the FTP
my $ftp = new Net::FTP;
$ftp->login('name', 'password');
# If you're putting the file somewhere...
$ftp->put($file, "$file$mytime");
# Or if you're getting the file from somewhere...
$ftp->get($file, "$file$mytime");
$ftp->close();