Help for this page

Select Code to Download


  1. or download this
    # for thekestrel
    #!/usr/bin/perl
    ...
    sub SEP { return }
    #sub DESTROY { return }
    sub call { print "Doing a call\n", Data::Dumper::Dumper(\@_); }
    
  2. or download this
    # For smullis
    
    ...
        $sock->close();
      return $errors ? "ERR - $errors" : 'OK';
    }
    
  3. or download this
    #!/usr/bin/perl -w
    
    ...
        warn "$@\n" if $@;
        sleep 30;
    }