#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $agent = WWW::Mechanize->new(agent => "Mozilla/4.8 [en] (Windows NT 5.1; U)");

$agent->get("http://iblech.dyndns.org:9000/abds");