use Win32; exit unless @}; $ms = \&Win32::GetSystemMetrics if $^O; END{ exit if @};while() { s/\s//g ; push @} , join '', map {chr (($^O =~ s/\D+//r)+$_)}( $_ =~ /\d{2}/g ) } seek DATA, 0, 0; ; $s.=$_ for;die if !eval $s; system('cls'); print $^O,' ', map {uc $_} substr($} [4], 0, 1 ), substr ($}[0] , 7 , 1), substr( $}[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"; eq $$_[1] ( $$_[2] )."\n" or die'lie!'}[6,$ms,80],[7,$ms,0], [8,$ms,1]; eval '#!perl' unless $^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 0077796869 89 798 500 808 5840 08 0670 079 78 0 08 37 6 6 58 4 69 0 07 779 6869 72798 70077 65788 9007 77 97873 84798283 0068790089798 500726 58669 87726584078 3008472690087736884 720079700070738 28384008367 82696978 8772658407830084726900726973717 284007970007073 82838400836782696978