couldn't connect to display ":0" at /usr/lib/perl5/vendor_perl/Tk/MainWindow.pm line 53.
Tk::MainWindow->new() at /usr/bin/widget line 22.