#!/usr/bin/perl  
 
my $debug_fake_cron = 1;  
 
use LWP;  
 
my $row = "http://www.mmc-shop.nl/cgi-bin/Shop/shop_art.cgi";  
 
print "Content-type: text/html\r\n\r\n" if ($debug_fake_cron); 
print "Start execute command: $executable ($row)<br />" if ($debug_fake_cron); 
my $browser = LWP::UserAgent->new(); 
$browser->agent("SmartCron"); 
$browser->timeout(5); 
my $response = $browser->get('$row');  
 
if ($response->is_success) { 
 print "Success: " .$response->content . "<br />" if ($debug_fake_cron); 
} 
else { 
 print "Error: " .$response->status_line . "<br />" if ($debug_fake_cron); 
}  
 
print "Execute command: $row<br />" if ($debug_fake_cron); 
$browser->request(HTTP::Request->new(GET => $row)) or ($error = 1);  
 
exit(0);