Well, a trivial implementation of Sub is

sub Sub (&) { return shift }
[download]

but that doesn't do the blessing and overloading. You'll get to use the syntax of:

my $s = Sub { print +shift }
$s->('hello');
[download]

just as I indicated before.