#!/usr/bin/env perl
use warnings;
use strict;

use Data::Dumper;
use IPC::Run3 'run3';

if (!@ARGV) {
	print "IPC::Run3 ver $IPC::Run3::VERSION\n";
	print "Calling self ($^X $0) with args...\n";
	my @cmd = ($^X,$0);
	@cmd = (@cmd, "-key1", " ", "-key2", "value2");
	run3 \@cmd or die;
	die if $?;
}
else {
	print Dumper \@ARGV;
}

__END__

IPC::Run3 ver 0.048
Calling self with args...
$VAR1 = [ '-key1', ' ', '-key2', 'value2' ];