$ perl ./a
Useless use of numeric gt (>) in void context at /work/tmp/a line 4.