if ( my $server = <$sock>) 
{
    print "Got Handshake: $server";
    dialog( $sock,  "HELO $forged_from\015\012" );
    dialog( $sock,  "MAIL FROM: $from\015\012" );
    dialog( $sock,  "RCPT TO: $to\015\012" );
    dialog( $sock,  "DATA\015\012" );
    dialog( $sock,  "$msg\015\012.\015\012" );
    dialog( $sock,  "QUIT\015\012" );
}