#!/usr/athena/bin/perl
$ip=pop(@ARGV);
($a1,$a2,$a3,$a4)=split(/\./, $ip);
print	"IP Address Quad: $a1.$a2.$a3.$a4\n";
$num=$a4+256*($a3+256*($a2+256*$a1));
$hex=sprintf("%x", $num);
$oct=sprintf("%o", $num);
print	"Decimal:         $num\n",
	"Hexadecimal:     0x$hex\n",
	"Octal:           0$oct\n";