do{
	$create = -C "test1.jpg";
	$modify = -M "test1.jpg";
}until ($create == $modify and $create > 0);

# Then process file or whatever.....

##</code><code>##


use Win32::PerfLib;
sub get_remote_process_list {
	my $server = $_[0];
        my %rtasks;
	my %counter;
	Win32::PerfLib::GetCounterNames($server, \%counter);
	my %r_counter = map { $counter{$_} => $_ } keys %counter;
	my $process_obj = $r_counter{Process};
	my $process_id = $r_counter{'ID Process'};
	my $perflib = new Win32::PerfLib($server);
	my $proc_ref = {};
	$perflib->GetObjectList($process_obj, $proc_ref);
	$perflib->Close();
	my $instance_ref = $proc_ref->{Objects}->{$process_obj}->{Instances};
	foreach my $p (sort keys %{$instance_ref}){
	    my $counter_ref = $instance_ref->{$p}->{Counters};
	    foreach my $i (keys %{$counter_ref}){
	        if($counter_ref->{$i}->{CounterNameTitleIndex} == $process_id){
	        	print "$instance_ref->{$p}->{Name}  ";
	            $rtasks{$counter_ref->{$i}->{Counter}} = $instance_ref->{$p}->{Name};
	        }
	    }
	}
  	return %rtasks;
}

##</code><code>##

use Win32::Process;
use Win32;

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

Win32::Process::Create($ProcessObj,
			"C:/WINNT/system32/CMD.EXE",			        "dir", # print dir just to see if I can do anything at all
			0,
			CREATE_NEW_CONSOLE,
			".")|| die ErrorReport();
$ProcessObj->Wait(INFINITE);