filter.pl: Filter the contents of the KDE clipboard through any pipe

filter.pl

#!/usr/bin/perl -w
use strict;

my $historyfile = glob '~/.filter.pl.last';

my $command = "";

system("touch $historyfile");
open(HIST,  "$historyfile")   or die "Can't open file: $!";
$command  = <HIST>;
chomp $command;
close HIST;

$command = readpipe('kdialog --title "filter.pl" -inputbox "Insert command" "'."$command".'"');
# delete everything after the first newline
if ($command =~ m/(^.*)\n/){
    $command = $1;
}

unless ($command eq ""){
    system('dcop klipper klipper setClipboardContents "`dcop klipper klipper getClipboardContents | '."$command".'`"');

    open(HIST,  ">$historyfile")   or die "Can't open file: $!";
    print HIST $command;
    close HIST;
}