#!/usr/bin/perl
require 5.002;
use IO::Socket;
use strict;
my $DEBUG = 1;
my $host = "zeroaltitude.org";
my $hostip =  "204.252.31.152";

use IO::Socket;
my $socket = IO::Socket::INET->new(PeerAddr => $hostip,
				   PeerPort => 80,
				   Proto    => "tcp",
				   Type     => SOCK_STREAM,
				   Timeout  => 3);
if (!$socket) 
{
    print "0.0.0";
    exit 1;
}

my $request = <<End;
GET /BlogPost/VERSION.txt HTTP/1.0

End
    ;

print $socket $request . "\n";
# Perl trick: we undefine the input record separator so that <> reads in
# everything that's returned by authd via the socket.
my $old_input_separator = $/;
undef $/;
my $answer = <$socket>;
$/ = $old_input_separator;    # Restore original separator.     
# We're done listening to the socket.
close($socket);

$answer =~ s/(.*)(\r?\n\r?\n)(.*)/$3/s;
$answer =~ s/\n|\r//;
print $answer;
exit 0;