用Perl计算下列数据的和

用Perl程序，计算1+5+9+13+17+……+16001的总和，谢谢大家

#!/usr/bin/perl
$sum = 0;
for( $a = 1; $a < 16002; $a = $a + 4){
    $sum = $sum + $a;
}
print "和为: $sum\n";