pmakholm

#!/usr/bin/perl

# Originaly at: 
#   http://idisk.mac.com/christian.hansen/Public/perl/serialize.pl
# Updated by Peter Makholm, June 2009
#   http://gist.github.com/130005
#   - Added Data::Dumper and a current set of YAML/JSON modules
#   - added tags for the -b option: :core, :yaml, :json
# Updated by Peter Makholm, October 2009
#   - Moved main logic into Benchmark::Serialize

pmakholm

#!/usr/bin/perl
#
# An evil form of perl DESTROY-method

use strict;
use warnings;

{
    package Evil;
    our @DESTROYED;

pmakholm

#!/usr/bin/perl

=license

   "THE BEER-WARE LICENSE" (Revision 42):
   <[email protected]> wrote this file. As long as you retain this notice
   you can do whatever you want with this stuff. If we meet some day, and
   you think this stuff is worth it, you can buy me a beer in return
   Peter Makholm

pmakholm

#!/usr/bin/perl
# quick and dirty: Read from a udp socket and print to STDOUT
# usage: udpcat.pl <host> <port>
#    or: udpcat.pl <host>:<port>

use strict;
use warnings;

use IO::Socket::INET;