sub foo(&@)
{
    my $code = shift;

    # whatever ...
}