#!/usr/bin/perl 

use Archive::Tar;

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

use Net::FTP; 
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;

##</code><code>##

#!/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;

##</code><code>##

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