##

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

# Creating new instance of Internet Explorer
my $ie = Win32::IEAutomation->new( visible => 1, maximize => 0, warnings => 1 );
my $site = 'http://localhost/samba.html';

$ie->gotoURL($site);

my $clicker = Win32::IEAutomation::WinClicker->new( warnings => 1 );

my $button = $ie->getButton( 'name:', 'try' );

$button->Click(1);

$clicker->push_confirm_button_ok('Format?',  1);

$ie->closeIE();

print "finished\n";