undef local $/; sysopen (HTML, "/root/bin/KnowledgeBase/update/$code.html", O_RDONLY, 0600) or die "can not read: $!"; $browser->form_number(1); $browser->field('wikitext', ); close (HTML); $browser->click('do[save]') or die "can not send:\n $!";