$ifconfig = "ifconfig -a";
@nic = qx |$ifconfig| or die( "Can't get info from ifconfig: " . $! );
foreach (@nic) {
    if (/^fjgi([\d.])/) {
        $device = $1;
        if (/inet ([\d.]+)/) {
            print "test $1\n";
            $ip = $1;
        }
        print "Device $device has the IP Address of $ip\n";
    }
}