use strict;
use warnings;
use Win32::IEAutomation;

my $ie = Win32::IEAutomation->new( 
         visible  => 1, 
         maximize => 1,
         warnings => 1,
);
$ie->gotoURL('http://www.example.com');
$ie->getTextBox('name:', 'ctl00$ContentPlaceHolderContent$FileUpload_opfFile')->
     SetValue('C:\test\9780547076034NIMAS.opf');
$ie->WaitForDone();
$ie->closeIE();