sub get_ftp_object{
use strict;
use Net::FTP;
my $sub_hash = "my_ftp";
my $domain = $config{$sub_hash}->{'domain'};
my $username = $config{$sub_hash}->{'username'};
my $password = $config{$sub_hash}->{'password'};
#dial up the server
my $ftp = Net::FTP->new( $domain, Debug => 0, Passive => 1 )
  or die "Can't connect: $!\n";
$ftp->login( $username, $password)
  or die "Couldn't login\n";
  return $ftp;
}