#!/usr/bin/perl
use strict;
binmode STDOUT;
my $tempname='c:\temp.out';
open TEMPFILE, ">".$tempname ;
while (<>) { print TEMPFILE $_ ; }
close TEMPFILE ;
print qx(c:\\gnupg\\gpg.exe --clearsign < $tempname);
unlink $tempname ;
