$conn = Net::SFTP::Foreign::Compat->new($ftp_host,(user => $ftp_user));
if ( $conn->error )
{
    my $errormsg=$!;
    FatalError "Error: $errormsg";
}