Select Code to Download

# start quick and EXTREMELY dirty xmodem transfert
sub xmodemrecv
...
  }
  print $sock "\x06"; #ACK
}

# start quick and EXTREMELY dirty xmodem transfert
sub xmodemsend
...
  if (sysread($sock,$buf,1) <= 0) { die "*** died$! ***\n"; }
  if ($buf ne "\x06") { die "*** no ACK received after xmodem send ***
+\n"; }
}