Programming in Perl

# 避免 undefined 警告
$foo = bar unless defined ($foo);

# 生成一个等差数列
perl -e 'for ($i=1; $i<=3; $i++) { printf "%5i\n", $i; }'; }'