A machine doesn't have an IP addresss, a network card does.

Perhaps there are other ways to achieve what you want. I gather this is for Windows... perhaps you could just use an API call to get the name of the machine your script is running on? You can use Win32::API for that, in case there's no more specific (and maybe even better) module available. Don't get me wrong, I love Win32::API.

#!/usr/local/bin/perl -wl
use Win32::API;
my $GetComputerName = Win32::API->new("Kernel32", "GetComputerNameA", 
+"PP", "N")
  or die "Oops!";
my $computer = pack 'a256', '';
my $size = pack 'V', length($computer)-1;
$GetComputerName->Call($computer, $size) or die "Oops, I don't know wh
+o I am";
local $\ = "\n";
print unpack 'Z*', $computer;
[download]

But, wat are you actually trying to achieve? Are you trying to map specific volumes to drive letters, or something close? Because there are API calls available for those purposes, too, and you can use them from within Perl.

I don't know the answer, but I suspect it might be OS-dependant. On which platforms will this run?

Update:

After much searching, I found a node on the topic.

I also came accross the module Win32::IPConfig:

use Win32::IPConfig ();

my $ipconfig = Win32::IPConfig->new();

foreach my $adapter ($ipconfig->get_adapters()) {
   foreach my $ip_addr ($adapter->get_ipaddresses()) {
      print("$ip_addr\n");
   }
}
[download]