use Net::SFTP::Foreign;
       $host = "x.x.x.x" ;

       %args = (
                 "user" => "user" ,
                 "password" => "password" ,
                 "port" => 'port'

               ) ;

my $sftp = Net::SFTP::Foreign->new( $host,%args, more => '-v');

$sftp->get('/directory/*.bai', '/home/appltest/cashman')
        or die "file transfer failed: " . $sftp->error;