sub get_ftp_object{
use strict;
use Net::SFTP;
use 5.01;
my $sub_hash = "my_sftp";
my $domain = $config{$sub_hash}->{'domain'};
my $username = $config{$sub_hash}->{'username'};
my $password = $config{$sub_hash}->{'password'};
#dial up the server

say "values are $domain $username $password";
my $sftp = Net::SFTP->new( $domain, Debug => 1)
  or die "Can't connect: $!\n";
$sftp->login( $username, $password)
  or die "Couldn't login\n";
  return $sftp;
}