To list all ip address in a machine using perl core modules only - perl-module

Question

how do i list all ip address in a machine using perl core modules only.
The code i have used is as follows. But it is listing only one ip address not all the ip addresses of a machine.
Can i be able to get list of ip addresses from a machine using perl.
I just want only ipv4 addresses.
To get all ip addresses should i use ifconfig command or is there a way perl can give me this with its API.
#!/usr/bin/perl -w
use Socket;
sub getIpAddressbyHost {
my ($hostname,$refAddress) = #_;
return -1 unless ($hostname ne "");
my $address = "";
unless ($hostname =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
eval {
if($hostname ne "") {
my $nformat = inet_aton($hostname);
unless(defined($nformat)) {
print("Error at getIpAddressbyHost for hostname $hostname\n");
return -1;
}
$address = inet_ntoa(inet_aton($hostname));
$$refAddress = $address;
}
};
if ($#) {
print("Error at getIpAddressbyHost for host $hostname : $#");
#$self->addErrorDetails("Error at getIpAddressbyHost for host $hostname : $#");
return -1;
}
}
else {
$$refAddress = $hostname;
}
return 1;
}
my $ipaddr = "Can't find";
print "enter the hostname: \n";
my $input = <STDIN>;
chomp($input);
my $retval = getIpAddressbyHost($input,\$ipaddr);
if($retval == 1){
print("the value of ipaddr: $ipaddr \n");
}