perl -lwe 'print $_ * 3 for 0..3'