my $func = sub { my ($param1, $param2) = @_; do { foo }; return $bar; }