#!/usr/bin/perl -d:ptkdb
 
BEGIN {
  # Set the DISPLAY variable to the name of the local machine
  # where the debugger window and web browser appear.
  $ENV{DISPLAY} = "mymachine:0" ;
}
 
print "Content-type: text/html\n\n";
print "<PRE>";
for (my $i=0; $i<10; $i++)
{
  print "Count $i\n";
}
print "</PRE>\n";