my ($dirname, $outputfile) = <@ARGV>;