#!/usr/bin/perl
use IO::Dir;
    tie %dir, 'IO::Dir', "club";
    foreach (keys %dir) {
  next if $_ eq ".";
  next if $_ eq "..";
  push( @files, "club/" . $_ );
}

use Archive::Tar;
my $tar = Archive::Tar->new; 
$tar->add_files( @files );
$tar->write('club_db.tar');

use Net::FTP;
$ftpobj = Net::FTP -> new ("192.168.1.21");
$ftpobj -> login("username","passwd");
$ftpobj -> binary;
$ftpobj -> put ("club_db.tar");
$ftpobj -> quit;