#!/usr/bin/perl


use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0");





  $req = HTTP::Request->new(GET => 'http://www.immomarktschweiz.ch/anzeige/pgObjekt.aspx?id=1&pc=lkb');
  $req->header('Accept' => 'text/html');

  # send request
  $res = $ua->request($req);

  # check the outcome
  if ($res->is_success) {
     print $res->decoded_content;
  }
  else {
     print "Error: " . $res->status_line . "\n";
  }