#!/usr/bin/perl

use strict;
use warnings;
require Win32::Process::Hide;
use Win32::Process;
use Win32;

my $processObj;
my $filePath = $ARGV[0];
$filePath =~ s/\\/\\\\/g;
sub ErrorReport{
    print Win32::FormatMessage( Win32::GetLastError() );
}

Win32::Process::Create($processObj,
                       "$filePath",
                       "",
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".")|| die ErrorReport();
					   
1;