1 2 3 4 5
print "dec bin oct hex\n"; print "-" x 30,"\n"; for ($a = 1; $a <= $ARGV[0]; ++$a){ printf "%d %b %o %X\n",$a,$a,$a,$a; }