my $sub = Sub { my $x = shift; print $x };
$sub->("foo"); # prints foo
print "that was from $sub\n";