sub get_ftp_object{
use strict;
use Net::SFTP::Foreign;
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'};
my $port = 22;
#dial up the server

say "values are $domain $username $password";
my $sftp = Net::SFTP::Foreign->new( $domain, user => $username,
port => $port, password => $password)
  or die "Can't connect: $!\n";

  return $sftp;
}