IP Address Validation in Perl

IP Address Validation in Perl:
###############################
print "Enter an ip address: ";
$ans = <stdin>;
chomp($ans);

if ($ans =~ m/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
{
    if ( ($1>0) && ($1<=255) && ($2<=255) && ($3<=255) &&
($4<=255))
    {
    print "An IP Address";
    }
    else
    {
    print "Not an IP Address";
    }
}
else
{
    print "Not an IP Address";
}