Select Code to Download

sub atsend {

...
    return $cnt == length $msg;
}

sub keypress
{
...
 return "$ok";    

}