my $foo;
$foo=sub { $foo->(@_[1..$#_]) if @_ };
$foo->();