perl -e"$s= rand; qx[$argv[0] $s]; qx[ $ARGV[1] $s];" script1.pl script2.pl