use Tk;
use Tk::clipboard;

use strict;
use warnings;
#use diagnostics;

#print Clipboard->paste;

my $mw = new MainWindow;

#my $clip = Tk::clipboard::clipboardGet( -type => 'FILE_NAME' );

$mw->clipboardClear;
$mw->clipboardAppend(-format=>"FILE_NAME", -type => 'FILE_NAME', "--", "C:\\test\\gaga.txt");

#print $clip;

MainLoop;