my($currentLine, $name, $infilename);