local *foo= sub { my ($param)= @_; do { something }; foo($param); }; foo(...);