gistfile1.PL

#!/usr/bin/env perl

use strict;
use warnings;
use Encode qw/decode/;
use Gtk2 -init;
use Pod::Usage qw/pod2usage/;
use opts;

opts
    my $encoding => { isa => 'Str', default => 'utf8' },
    my $help     => { isa => 'Bool' },
;
pod2usage 1 if $help;

my $data = decode $encoding, do { local $/; <STDIN> } || '';

&main();exit;

sub main() {
    my $clip = Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
    $clip->set_text($data);
    $clip->store;
    Gtk2->main_iteration_do(1) if $^O eq 'MSWin32';
}

__END__

=head1 NAME

    pclip - save clipboard for Gtk2

=head1 SYNOPSIS

    cat file | pclip [--encoding encoding --help]