#!/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";