couldn't connect to display ":0" at /usr/lib/perl5/vendor_perl/Tk/MainWindow.pm line 53.
Tk::MainWindow->new() at /usr/bin/ptksh line 242.
Use of uninitialized value $Tk::ptksh::hist[-1] in pattern match (m//) at /usr/bin/ptksh line 714.