$req = HTTP::Request->new (GET => $url . "?code=$name&month" .$pairs[0]);
$req->content_type ('text/html');
$res = $ua->request ($req);
die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success;
$content = $res->content;
open $OUT, '>','/var/www/res/'.$name. '.txt';
print $OUT decode('KOI8-R',$content);
#print $OUT $content;
close $OUT;


вот кусок кода из скрипта,суть такова что скрипт выдергивает данные и пихает их в файл,соответственно чтоб файл нормально читался в Винде необходимо сделать конверт формата из никсов под вынь
собственно делаю
$content= ~s/\n/\r\n/;
на выходе получаю пустой файл (
пробовал s и m и ~m
Что не так?
можно тупо в консоле прописать perl -pi -e 's/\n/\r\n/;' *.txt но это не удобно

ХЭЛПППП!!!!!!!!!!