($input,$output,$length)= shift @ARGV; #### ($input,$output,$length)= @ARGV;