Select Code to Download

#!/usr/bin/perl -w

use strict;
...

my $o = Obj->new();
print $o->can('new'), "\n", UNIVERSAL::can($o, 'new'), "\n";

package UNIVERSAL;
...

package main;
Universal->new->loop();