Как определить имя сетевого интерфейса в Solaris

#!/usr/bin/perl -w                                                                                            

use Sun::Solaris::Kstat;                                                                                      

my $Kstat = Sun::Solaris::Kstat->new();                                                                       

                                                                                                              

foreach my $module (keys(%$Kstat)) {                                                                          

                                                                                                              

        my $Modules = $Kstat->{$module};                                                                      

        foreach my $instance (keys(%$Modules)) {                                                              

                                                                                                              

            my $Instances = $Modules->{$instance};                                                            

            foreach my $name (keys(%$Instances)) {                                                            

                                                                                                              

                my $Names = $Instances->{$name};                                                              

                                                                                                              

                # Check this is a network device.                                                             

                if (defined $$Names{ifspeed}) {                                                               

                                                                                                              

                    if ($name ne "mac"){                                                                      

                        print $name,"\n";                                                                     

                    }                                                                                     

                }                                                                                             

            }                                                                                                 

        }                                                                                                     

    }