Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

tachyon's scratchpad

by tachyon (Chancellor)
on Jun 01, 2004 at 18:32 UTC ( [id://358364] : scratchpad . print w/replies, xml ) Need Help??

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;
    }