Try this:

#! perl -slw
use strict;
use Win32::GuiTest qw[ SendKeys ];
use Win32::Clipboard;

my $text = "The quick brown fox jumps over the lazy dog\r\n" x 10;

my $clip = Win32::Clipboard();
$clip->Set( $text );
system 'start notepad.exe';
sleep 1;
SendKeys( '^v' );
[download]