print dec bin oct hex print 30 for ARGV printf

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;
}