Gtk2::Clipboard need store content after exit.

[eexpress <eexpress 163 com>]

hi,
I want store sth into clipboard after perl script exit, but does not know
how to write $clip->store(...) function.
"... (list) of Gtk2::TargetEntry's" here but how can i set those
targetentry.

now i use `echo $out|xsel -i` instead of it.

use Gtk2 "-init";
$clip = Gtk2::Clipboard->get (Gtk2::Gdk->SELECTION_PRIMARY);
$clip->set_can_store();
$clip->set_text("need keep");
$clip->store;
Gtk2->main_iteration while Gtk2->events_pending;
#Gtk2->main;


--