Help for this page

Select Code to Download


  1. or download this
    #!/opt/perl/bin/perl

use strict;
...
    my $serial = $client->serial();
    print "Client $serial just disconnected\n";
}
  2. or download this
    #!/usr/bin/perl

use strict;
...
    $client->close();
}
print "Done.\n";
  3. or download this
    #!/usr/bin/perl

use strict;
...

    $client->close();
}