unshift $1, @ARGV
	if basename($0) =~ /^p5u-(\w+)$/;