01 #!/usr/local/bin/perl -w
02 use strict;
03 
04 my @words = qw(yes no maybe so);
05 
06 for my $word ( @words ) {
07 
08     open my $pipe, "|-", 
09     qw(xclip -verbose 
10        -selection CLIPBOARD -loops 2);
11 
12     print $pipe $word;
13     close $pipe or die;
14 }