Select Code to Download

# for thekestrel
#!/usr/bin/perl
...
sub SEP { return }
#sub DESTROY { return }
sub call { print "Doing a call\n", Data::Dumper::Dumper(\@_); }

# For smullis

...
    $sock->close();
  return $errors ? "ERR - $errors" : 'OK';
}

#!/usr/bin/perl -w

...
    warn "$@\n" if $@;
    sleep 30;
}