# Clipboard Catcher - by dark2k1(dark2k1.com)

use strict;
use Win32::Clipboard;

# Clipboard log file.
my $log_file = "c:\log.txt"; 

# Empty log file before starting
my $empty_clipboard = 1;

	if($empty_clipboard) {
	open(FILE, ">$log_file");
	close(FILE);
	}

my $clipboard = Win32::Clipboard;

my($last_clipboard, $current_clipboard, $data_formatted, $date, $time, @datetime);

while(1) {
$current_clipboard = $clipboard->Get();
	if($current_clipboard ne $last_clipboard) {
	@datetime = localtime(time);
	$date = sprintf("%d-%d-%d", $datetime[5]-100, $datetime[4], $datetime[3]);
	$time = sprintf("%d:%d:%d", $datetime[2], $datetime[1], $datetime[0]);

	$data_formatted = "
[Clip added: $date $time]
$current_clipboard
[End of clip]

";

	open(FILE, ">>$log_file") or die "no such file";
	print FILE "$data_formatted";
	close(FILE);

	$last_clipboard = $current_clipboard;
	}
}