<div dir="ltr"><div><br class="">perl -e 'use Devel::CheckOS qw(os_is); use open os_is("Unix")? ":locale" : os_is("Windows") ? do { require Win32::Codepage; (":std", ":encoding(". Win32::Codepage::get_encoding().")" ) }: ();'<br>
</div><div><br></div>Что мешает сделать так?<div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/10/28 Ilya Chesnokov <span dir="ltr"><<a href="mailto:chesnokov.ilya@gmail.com" target="_blank">chesnokov.ilya@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">28 октября 2013 г., 19:08 пользователь Nikolay Mishin <span dir="ltr"><<a href="mailto:mi@ya.ru" target="_blank">mi@ya.ru</a>></span> написал:<br>
<div class="gmail_extra"><div class="gmail_quote"><div class="im"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

ну я еще люблю модули, поэтому так<br>
<br>
BEGIN {<br>
    use Devel::CheckOS qw(os_is);<br></blockquote><div><br></div></div><div>Ха-ха ) Порадовал этот модуль. У него в description:</div><div><br></div><div><div>A learned sage once wrote on IRC:</div><div>$^O is stupid and ugly, it wears its pants as a hat</div>
<span class="HOEnZb"><font color="#888888">
</font></span></div><span class="HOEnZb"><font color="#888888"><div><br></div></font></span></div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br>Best regards,<br>Ilya Chesnokov
</font></span></div></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Best regards, Ruslan.
</div>