#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Clipboard;

my $mw = tkinit;
$mw->withdraw;  #use Tk without showing a window

my $content = 'foobar'.time;
print "$content\n";

$mw->clipboardClear;
$mw->clipboardAppend($content);
MainLoop;