my $filename = $_; from_to( $filename, "CP1251", "UTF8" ); my $mech = $mech->clone(); my $form = $mech->form_number(1); $mech->field( 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$fuDocumentUpload', $config->{source_folder} . "/" . $_ ); $form->find_input( 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$fuDocumentUpload')->filename($filename); $mech->submit_form( form_number => 1, button => 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$btnCommitUpload', );