Select Code to Download

#!/bin/perl -l

...

my $foo = Foo->new;
print ref($foo);   # gives "Foo"

hossman@bester:~$ perl ~/tmp/monk.pl
Foo'ed
Bar'ed
Foo