Hello nuns and monks!
I'm not an obfusctor, but as Win32 is obfuscated per se i present you this little lie/truth game
use Win32; exit unless @}; $ms = \&Win32::GetSystemMet
+rics if $^O;
END{ exit if @};while(<DATA>) { s/\s//g ; push @} , jo
+in '', map
{chr (($^O =~ s/\D+//r)+$_)}( $_ =~ /\d{2}/g ) } seek DA
+TA, 0, 0; ;
$s.=$_ for<DATA>;die if !eval $s; system('cls'); print $
+^O,' ', map
{uc $_} substr($} [4], 0, 1 ), substr ($}[0] , 7 , 1), sub
+str( $}[5]
,4,1), substr ($}[8],1,1), $/;} map{die 'lie!' unless($$_[1
+]->($$_[2]
)?6:7 )== Win32::MsgBox($}[$$_ [0]] . "?", 4, $0); }[0, $ms
+,75], [1,
$ms, 91], [2, $ms, 23],[3,$ms, 0x2004], [4,$ms, 67],[5, $ms
+,0x2003];
map { print $}[$$_[0]]. "?\n"; <STDIN> eq $$_[1] ( $$_[2] ).
+"\n" or
die'lie!'}[6,$ms,80],[7,$ms,0], [8,$ms,1]; eval '#!perl' unle
+ss $^O;
__DATA__
777 9 8 5 8 36 9 00 7265 830 08 669 82 847 36 765 760 08 7726
+96 976
77 79 858 36 90 0726 5830072798 27390 7978 84 65 76 00 8772 69
+69 76
7 7 7 98583 69 0 0 66 8 58 4847 97 8830 0658 26900 83 876 58080
+ 6968
73 8 30 08 4 726 90 080 670 073 78 006 8 79 67 756 96 80 077 796
+ 869
74 85 8 3 84006 67 9798 4007378 007 065 7376 1383 6570 69 007779
+6869
89 798 500 808 5840 08 0670 079 78 0 08 37 6 6 58 4 69 0 07 779 6
+869
72798 70077 65788 9007 77 97873 84798283 0068790089798 500726 58
+669
87726584078 3008472690087736884 720079700070738 28384008367 826969
+78
8772658407830084726900726973717 284007970007073 8283840083678269697
+8
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.