Select Code to Download

for my $nic (networkInfo()) {
      if (defined $nic->{ip}) {
            print ">>>  IP4 Device: $nic->{device} is using: $nic->{ip
+} address\n" .
...
        print ">>>  IP6 Device: $nic->{device} is using: $nic->{ip6} a
+ddress\n";
    }
}

my @files = getPlatformFiles($platform, $nic->{device});
foreach my $file (@files) {
    print "$file\n";
}

sub getPlatformFiles {
    my $plat_in = shift;
    my @list;
...
    }
    return @list;
}

Global symbol "$nic" requires explicit package name at ./new.pl line 1
+85.
Execution of ./new.pl aborted due to compilation errors (#1)
    (F) You've said "use strict vars", which indicates that all variab
+les
...
        Global symbol "$nic" requires explicit package name at ./new.p
+l line 185.
Execution of ./new.pl aborted due to compilation errors.
 at ./new.pl line 189