#/usr/bin/perl -w  
$count=0;
while ($count<10){
        $count+=2;
        print "count is now $count\n";
}

在终端输入$perl per1.pl即可求得10以内的奇数的和；-w表示提示警告 #!/usr/bin/perl表示perl的路径,也可写为#!/usr/bin/env perl 让系统自己查找perl的路径