my @fcdevices = `ioscan -kfnNC fc | grep "/dev/" 2>/dev/null`;
foreach my $fcdev(@fcdevices) {
                my @fcdump = `fcmsutil $fcdev`;
                foreach my $ln (@fcdump) {
                  if($ln =~ /Hardware Path is/)
                   {
                 (my $pathname, $hwpath) =split('= ', $ln);
                      chomp($hwpath);
                   }
                 elsif($ln =~ /N_Port Port World Wide Name/)
                   {
                   (my $hwwnname, $hwwn) = split('= ', $ln);
                          chomp($hwwn);
                   }
                }
                 $hwwns->{$hwpath} = $hwwn;
        }
        return $hwwns;