#!/usr/bin/perl -d:ptkdb

use warnings;
use strict;
use CGI;
use DBI;

sub BEGIN { $ENV{DISPLAY} = "localhost:0.0"; }