use Win32::IE::Mechanize;

    my $url = 'http://192.168.1.1/cgi-bin/luci/engineer/advanced/diagnostics/upgrade'; 
    #my $username = 'engineer'; 
    #my $password = 'ARC$eng&123';
    my $file = 'C:\Documents and Settings\michaelhuang\Desktop\rev1-54.zip';
    my $ie = Win32::IE::Mechanize->new( visible => 1);

    $ie->get( $url);
    $ie->form_number(4);
        $ie->set_fields(
        username => 'engineer',
        password => 'ARC$eng&123' 
    );
    $ie->submit();
    $ie->form_number(4);   
    $ie->set_fields(
                #filename=>'rev1-54.zip'
	        image => $file,
                );
     $ie->submit();