#!/bin/perl -w
use strict;
use Win32::Clipboard;
use FileHandle;
use POSIX;

my $clipboard = Win32::Clipboard();

print "To exit, CNTL-C out of this window.\n\n\n";

$clipboard->Empty();
while (1) {
	$clipboard->WaitForChange();
	my $text = $clipboard->GetText();
	
	my $now = localtime();
	my $file = POSIX::strftime("c:\\temp\\clip_%Y_%b_%d_%H_%M_%S.txt",localtime());
	open(OUTPUT,">$file") or die "open: $!";
	binmode OUTPUT;
	autoflush OUTPUT 1;

	print "$now: writing " , substr($text,0,40) , "... to $file\n";
	print OUTPUT "$now\n$text\n";
	close OUTPUT || die "close: $!";
}

exit;