The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl -T
use strict;
use warnings;
use Net::MemcacheQ;

my $nmq = Net::MemcacheQ->new();

for my $i (1..100) {
  $nmq->push('demoqueue', "message $i");
}