my ($filename_in, $filename_out) = @ARGV;