Quote

use Tk;
use Win32::API;

$mw = MainWindow->new;
$mw->withdraw;
$mw->update;

my $id = hex($mw->frame);
my $api = new Win32::API('user32','ShowWindow',['N','N'],'N') || die Win32::FormatMessage(Win32::GetLastError());
$api->Call($id,3);

MainLoop;