##
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";