Not only that, but you can leave off the parens for the prototyped sub. Otherwise you would have to write FOO() instead of FOO.

Really?

#!/usr/bin/perl -l

use strict;
use warnings;

sub FOO {
    @_? 1+shift : print 'Foo';
}

FOO for 1..FOO FOO;

__END__
[download]