I'm pretty sure it's the format of your address that's the problem. The .013.057 should be .13.57. I hacked up a small section of a script I had hanging around (mine uses Net::Ping instead of Win32PingICMP) and ended up with this:

use strict;
use Net::Ping;        
my @addresses = ('172.016.016.028', '172.16.16.28');

my $p = Net::Ping->new("icmp", 0.5) or die "Can't create new ping obje
+ct: $!\n";

for (@addresses){
    if ($p->ping($_)){
        print "ping of $_ successful\n";
    }else{
        print "ping of $_ failed\n";
    }
}

$p->close;

_____OUTPUT_____
ping of 172.016.016.028 failed
ping of 172.16.16.28 successful
[download]

It's possible that you might get a different result out of Win32::PingICMP, but I doubt it.