#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $user = 'XXXX';
my $password = 'XXXXX';

my $ftp = Net::FTP->new('your_ftp_box');
$ftp->login($user, $password);
my $file = glob 'whatever*you*need';
$ftp->put($file, 'whatever_name_you_want');
$ftp->quit;