#!/usr/bin/perl 

use Archive::Tar;
use Net::FTP; 

my $tar = Archive::Tar->new; 
$tar->add_files('/var/lib/mysql/club/foo'); 
$tar->write('club_db.tar'); 

print "putting the file on the server\n"; 
$ftpobj = Net::FTP->new ("192.168.1.21");
$ftpobj->login("my_name","my_pass"); 
$ftpobj->binary; 
$ftpobj->put ("club_db.tar"); 
$ftpobj->quit;