取自 PerlChina.org - wiki

1. !/usr/bin/perl

$i=0;