my $class = ref($proto) || $proto;
[download]

Ugh. See ref($proto) - just say no!.

-- Randal L. Schwartz, Perl hacker