#!/usr/local/bin/perl -d:ptkdb
 BEGIN {
     $ENV{'DISPLAY'} = "10.40.14.106:0.0";
 }
 Then my code
 .
 .
 .