perl dnslookup for multiple hosts from input file

use warnings ;
use strict ;
use Socket ;

#usage perlDNSLookUp file , where file is the full path ot any text file containing the domain names of the hosts , which ips you would like to retrieve


my $inputFile = $ARGV[0] ;
my $outputFile = "IpNumbers.txt" ;
open (INPUT, "<$inputFile") or
print "could not open the $inputFile!\n";
my @hosts = <INPUT>;

open (OUTPUT, ">$outputFile") or
print "could not open the $inputFile!\n";


foreach (@hosts )
{
print "$_" , "\n" ;
chomp $_ ;
my $address = gethostbyname("$_") ;
# print gethostbyname($_) , "\n" ;
print $address , "\n" ;
print OUTPUT inet_ntoa($address) , "\n" ;

}



close INPUT;
close OUTPUT;
my $cmd = "$outputFile" ;
`$cmd` ;