use Socket;
use URI;

my $url = 'http://www.mydomain.com';

my $uri = URI->new( $url );
my $ip_addr = gethostbyname( $uri->host );

print $url, " -> ", inet_ntoa( $ip_addr ), "\n";