Select Code to Download

# User agent object aanmaken
use LWP::UserAgent;
use HTTP::Request;
...
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();

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;