#!/usr/bin/perl
use warnings;
use strict;

use Tk;
my $mw = MainWindow->new();
$mw->withdraw();

$mw->clipboardClear();
$mw->clipboardAppend('clip');

$mw->after($ARGV[0], [$mw, 'destroy']);
MainLoop;