sub command
{   my $cmd = "$_[0]\r\n" ;
    print $server $cmd ;
    my $resp = <$server> ;
    return undef if $resp !~ /^[123]/ ;
    return $resp ;
}