$o = bless [], 'Input';;
...
$o->awesome;;
Yay!