!/usr/bin/perl -w for ($a=0;$a<100;$a++) { next if ( $a%2 ); print "print $a\n"; } next用在if前可以简化if函数的使用。