print dec bin oct hex print 30 for ARGV printf

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