use strict; use warnings; use Win32::Clipboard; my $outputfile = 'c:\perl\log.txt'; my $clipboard = Win32::Clipboard(); $clipboard->Empty(); while (1) { $clipboard->WaitForChange(); open (OUT, ">>$outputfile") || die "Could not open $outputfile"; my $text = $clipboard->GetText(); print OUT $text,"\n\n"; print $text,"\n\n"; close OUT; } exit(0);