my ( $r, $resp );
while (sysread($sock, $r, 1024) >= 1) {
    $resp .= $r;
    $resp =~ /prompt>/ and last;
}
print $sock "$username\n";