[완료]perl WWW::Mechanize로 파일 업로드 질문입니다.

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
 
my $q = CGI->new;
# $q->charset('UTF-8');
print $q->header("text/plain");
print $q->param('textarea1');
 
# out 파일에는 textarea1 필드의 값만 저장
open my $fh,'>', 'out.txt';
print {$fh} $q->param('textarea1');
 
# log 파일에 넘겨받은 파라메터 목록을 저장하게 했음
open my $fh2,'>', 'log.txt';
my %params = $q->Vars;
foreach my $k ( sort keys %params ) {
    print {$fh2} "[$k][$params{$k}]\n";
}

#!perl
use strict;
use warnings;
use utf8;
use Encode;
 
use WWW::Mechanize;
 
my $browser = WWW::Mechanize->new();
my $url = 'http://gypark.pe.kr/cgi-bin/z/form.cgi';
 
$browser->post($url,
                [
                    textarea1 => "가각간",
#                    textarea1 => encode("UTF-8","가각간"), # 인코드 할지 말지
                    details => "hhh",
                ],
#                 Content_Type => 'form_data',      # 이걸 붙일지 말지
            );

::::::::::::::
out.txt
::::::::::::::
가각간
::::::::::::::
log.txt
::::::::::::::
[details][hhh]
[textarea1][가각간]

::::::::::::::
out.txt
::::::::::::::
::::::::::::::
log.txt
::::::::::::::
[POSTDATA][textarea1=%EA%B0%80%EA%B0%81%EA%B0%84&details=hhh]

::::::::::::::
out.txt
::::::::::::::
���
::::::::::::::
log.txt
::::::::::::::
[details][hhh]
[textarea1][���]

::::::::::::::
out.txt
::::::::::::::
::::::::::::::
log.txt
::::::::::::::
[POSTDATA][textarea1=%C3%AA%C2%B0%C2%80%C3%AA%C2%B0%C2%81%C3%AA%C2%B0%C2%84&deta
ils=hhh]