"C:\Dwimperl\perl\site\bin\pp.bat" --output="C:\Dwimperl\perl\Scripts\myName.exe" --gui --compress 6 --bundle "C:\Dwimperl\perl\Scripts\myName.pl"

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Tk;
use Sys::Hostname;

my $hn = hostname;

my $mw = MainWindow->new();
$mw->overrideredirect(1);
$mw->Label(-text => "You Computer Name is: " . $/ . $hn,
           -font => "Arial 16")->pack;
$mw->focusmodel('active');
Tk::after(10000, sub { $mw->destroy });
MainLoop();