IP-Adressen in  Nummer umwandeln

$y=shift @ARGV||170171027;

if($y =~ /([0-9]{5,12})/) 
{
$x1 =$y & 255;
$y = $y >> 8;
$x2 =$y & 255;
$y = $y >> 8;
$x3 =$y & 255;
$y = $y >> 8;
$x4 =$y & 255;
print "ntoa $x4.$x3.$x2.$x1 \n";
}
# $y="10.36.154.147";
if($y =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) 
{
$x=$1; 
$x = $x <<8;
$x+=$2; 
$x = $x <<8;
$x+=$3; 
$x = $x <<8;
$x+=$4; 
# print "if $1 $2 $3 $4 richtig 170171027";
print "aton $x\n";
}