multiplication table in Perl

#!/usr/local/bin/perl -w
use strict;
for$-(1..9){printf'%3d',$_*$-for 1..9;print$/}

-w and strict optional, of course.