#!/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();