# User agent object aanmaken
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new<br>('GET','http://www.telfort.nl/inc/headers/header_belmobiel.php');
my $response = $ua->request($request);
my $header = $response->as_string();

### Opschonen $header
#my $headtemp;
#($headtemp,$header)= split(/\!/,$header,2);
#$header = "<!".$header;

my $request = HTTP::Request->new<br>('GET','http://www.telfort.nl/inc/footers/footer_belmobiel.php');
my $response = $ua->request($request);
my $footer = $response->as_string();