Skip to content

Instantly share code, notes, and snippets.

@bingos
bingos / yapc-vlc.pl
Created June 13, 2012 22:01 — forked from madsen/yapc-vlc.pl
Watch YAPC::NA with VLC
#! /usr/bin/perl
# USAGE: yapc-vlc ROOM
# where ROOM is L, V, 313, or 325
use strict;
use warnings;
use IPC::Cmd qw[can_run];
use List::Util qw(first);
use HTML::TreeBuilder 5 -weak;
@bingos
bingos / poe-bug.pl
Created September 24, 2009 08:22 — forked from tokuhirom/poe-bug.pl
use warnings;
use strict;
use POE;
use POE::Component::Server::TCP;
use Test::TCP;
use Test::More 0.94;
test_tcp(
client => sub {
my $port = shift;