Hilfe zu Perl Script gesucht?

[Tux-Manni]

Hallo

Ich würde gern folgendes Script modifizieren. Es soll entweder net0 ODER net1 auslesen; je nachdem, welche Karte eine IP Adresse hat.
Ist so etwas möglich?

#!/usr/bin/perl

$net = `/sbin/ifconfig | grep 'net1'`;
if (length($net))
{
	$net = `/sbin/ifconfig net1 | grep 'inet Adresse'`;
	if (!length($net))
	{
	   $net = `/sbin/ifconfig net1 | grep 'inet end.'`;
	}
	if (length($net))
	{
	   chop($net);
	   @netip = split/:/,$net;
	   $netip[1] =~ /(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})/;
	   $ip = $1 .".". $2 .".". $3 .".". $4;
	   print "". $ip ."\n";
	}
	else
	{
	   print "Nicht gefunden\n";
	}
}
else
{
   print "Fehler\n";
}

Danke und Gruß
Manni