use strict;
use warnings;
use Win32::GuiTest;
use Hangle qw/transformation/;
my $key = "글쓰기는 근육과 같습니다.\n".
"더 많이 쓸수록 더 잘 쓸 수 있게 됩니다.\n".
"글을 잘 못쓴다면 간단한 일기를 쓰고, \n".
"블로그도 만들어보고, 창조적인 쓰기 수업을 수강하고, \n".
"4년동안 티격태격 싸워왔던 대학동기나 룸메이트에게 보내는 \n".
"멋진 편지를 써보세요 \n".
"어떤 글이라도 종이에 적기 시작하면 글쓰는 기술이 향상될 겁니다.\n\n".
" - 조엘 온 소프트웨어 \n";
$key = transformation($key);
# print $key;
system("start notepad.exe");
sleep 1;
Win32::GuiTest::SendKeys($key);
sleep 5;
Win32::GuiTest::SendKeys("%{F4}{TAB}{ENTER}");