# 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();

##</code><code>##

print "Cache-Control: no-cache\nPragma: no-cache\n"; ## caching tegen te gaan (speciaal wegens proxy-servers)
	#print $cgi->header;
print "Content-type: text/html\n\n";
  
#### header van telfort #####
print $header;