sub Sub (&) { return shift } #### my $s = Sub { print +shift } $s->('hello');