All credit to Cine

C:\>ping www.perlmonks.com

Pinging www.perlmonks.com [206.170.14.76] with 32 bytes of data:

Reply from 206.170.14.76: bytes=32 time=430ms TTL=237
Reply from 206.170.14.76: bytes=32 time=333ms TTL=237
Reply from 206.170.14.76: bytes=32 time=360ms TTL=237
Reply from 206.170.14.76: bytes=32 time=330ms TTL=237

C:\>ping www.i_don't_exist.com
Bad IP address www.i_don't_exist.com.

C:\>ping

Usage: ping [-t] [-a] [-n count] [-l size] [-f] [-i TTL] 
[-v TOS][-r count] [-s count] [[-j host-list] | 
[-k host-list]] [-w timeout] destination-list

Options:
    -t             Ping the specifed host until interrupted.
    -a             Resolve addresses to hostnames.
    -n count       Number of echo requests to send.
    -l size        Send buffer size.
    -f             Set Don't Fragment flag in packet.
    -i TTL         Time To Live.
    -v TOS         Type Of Service.
    -r count       Record route for count hops.
    -s count       Timestamp for count hops.
    -j host-list   Loose source route along host-list.
    -k host-list   Strict source route along host-list.
    -w timeout     Timeout in milliseconds to wait for each reply.


C:\>
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Perhaps you can better explain what you're looking to do and how to achieve it?

HTH
--
idnopheq
Apply yourself to new problems without preparation, develop confidence in your ability to to meet situations as they arrise.

~ Shunryu Suzuki

You can look into Socket which is a standard module, or gethostbyname - which is builtin function.

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Unfortunatly for you, I've not got any example code of using it from Perl, but it may be worth looking at the relevent Microsoft newsgroup for help with WinInet

Update: I forgot to mention this API uses the same setting that IE uses, and can give false results. However, you can also use other functions from the same API to connect to the Internet using the client's configured proxy settings, etc. (13:20, 20-Aug)

--
RatArsed

    use Net::Ping;
    $p = Net::Ping->new();
    print "$host is alive.\n" if $p->ping($host);
    $p->close();
[download]

Ok.


#!/usr/bin/perl -w

use strict;
use Carp;
my $host = "www.perlmonks.com";
my $timeout = 10; #sec

#Stolen from Net::Ping
use FileHandle;
use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET
               inet_aton sockaddr_in );
my $proto_num = (getprotobyname('tcp'))[2] ||
            croak("Can't get tcp protocol by name");
my $port_num = (getservbyname('echo', 'tcp'))[2] ||
            croak("Can't get tcp echo port by name");
my $fh = FileHandle->new();

my $ip = inet_aton($host) || croak("Cant resolve: $!"); 

socket($fh, &PF_INET(), &SOCK_STREAM(), $proto_num) ||
        croak("tcp socket error - $!");
my $saddr = sockaddr_in($port_num, $ip);
$SIG{'ALRM'} = sub { die };
alarm($timeout);        # Interrupt connect() if we have to
            
my $ret = 0;               # Default to unreachable
eval <<'EOM' ;
   exit unless connect($fh, $saddr);
   $ret = 1;
EOM
alarm(0);
$fh->close();

exit $ret;
[download]



TIMTOWTDI