DouKaku?

use strict;
use Clipboard;
# クリップボードに転送
Clipboard->copy('foo');
# クリップボードから取り出し
print Clipboard->paste;