use Socket;
use URI;

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

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

if ( $uri->host eq $ip_addr ) {

    #... Creatures evolve, code does stuff

}