use strict;
use Win32::IEAutomation;
use warnings;
my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);
$ie->gotoURL('C:\ex.html');
$ie->getTextBox("name:", "upfile")->SetValue("C:\\qctool.jar");
$ie->WaitforDone;