use LWP::Simple;

my $site = 'http://.....';

my $res = get($site);

if ( ! $res ) {
    print "Did not get response";
}
elsif ( $res =~ m/true/i ) {
    # blah
}
elsif ( $res =~ m/false/i ) {
    # blah
}
else {
    print "Unknown response $res";
}
[download]