#!/usr/bin/perl
use Win32::GuiTest qw( FindWindowLike PushButton );
$path = 'C:\Symantec DLO\setup.exe';
system("$path");
PushButton('00001F35') ;

sub PushButton
{
	$result = "00001F35";
	print "res :$result";
}