my $id = $IN->param('ID'); # get ID of the link..so we can call SQL stuff..

# get rid of the http:// in the $url variable
$url =~ s,http://,,;

print $IN->header();
print $url . "<BR>";

# now connect to the URL..to see what we get...
my $sock = GT::Socket->open({
'host' => $url,
'port' => 80,
'timeout' => 20,
'max_down'=> 15
});

if (defined $sock) {

$sock->write( "GET / HTTP/1.0\n\n" );

$returned = $sock->gulpread(-1);

@sliced = split(/\s/, $returned);
$code_returned = $sliced[1];

} else {

print $IN->header(); print "returned a 404 cos nothing was defined <BR>";
$code_returned = "404";

}