#!perl

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:', "importFile")->
     SetValue("C:\test\9780547076034NIMAS.opf");
$ie->WaitForDone();
$ie->closeIE();