#!/usr/bin/perl
# process.plx
use warnings;
use strict;
use Win32::Process;
use Win32;

my $speedfan;
my $furmark;
my $counter;
my $hot;
my $cold;

print "Please enter cycle count:";
$counter=<STDIN>;
print "Please enter hot cycle time:";
$hot=<STDIN>;
print "Please enter cold cycle time:";
$cold=<STDIN>;

sub ErrorReport{
    print Win32::FormatMessage(Win32::GetLastError());
}

Win32::Process::Create($speedfan,
    "C:\\Program Files (x86)\\SpeedFan\\speedfan.exe",
    "notepad.txt",
    0,
    NORMAL_PRIORITY_CLASS,
    ".")|| die ErrorReport ();

print "SpeedFan has been opened.\n";

while ($counter > 0) {
Win32::Process::Create($furmark,
    "C:\\Program Files (x86)\\Geeks3D\\Benchmarks\\FurMark_1.12.0\\Fur
+Mark.exe",
    "/nogui /width=1024 /height=728 /disable_osi /log_gpu_data /log_gpu_data_polling_factor=60",
    0,
    NORMAL_PRIORITY_CLASS,
    ".")|| die ErrorReport ();

print "Furmark has been opened at $counter";

sleep $hot;
print "timesup.\n";

my $exit_code = 1; 
$furmark->Kill($exit_code); 
$counter = $counter-1;
sleep $cold;
}