system($^X,$scriptname,@args)==0
	or die "$^X $scriptname failed, \$?=$?";