#!/usr/bin/perl


srand;


for($i= 0; $i < @_; $i++) {
	$_[$i] =~ s/"//g;
}

$result = "";

$cmd = shift @ARGV;

while (@ARGV > 0) {

	do {
		$r=int rand(scalar @ARGV);
	} while (!defined $ARGV[$r]);

	$result .= " \"$ARGV[$r]\"";
	delete @ARGV[$r];
}

system "$cmd $result";