#!/usr/bin/perl -w
use UI::Dialog; # sudo apt-get install libui-dialog-perl

my $statement = "My name is $0...\n";

my $d1 = new UI::Dialog(title => 'I know my name');
$d1->msgbox(text => $statement);

print $statement;

exit;