Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl -w
use strict;
...
print $err ? $err : "OK";

sub do_something { ... }
  2. or download this
    #!/usr/bin/perl -w 
use strict;
...

# check for some event
sub some_event { ... }