#!/usr/local/bin/perl -w use strict; for$-(1..9){printf'%3d',$_*$-for 1..9;print$/}
-w and strict optional, of course.
Log in or register to write something here or to contact authors.