die perl $0 test n unless @ARGV==1;什么意思