jdmack

#!/usr/bin/perl

use strict;
use warnings;

my $read_file = shift;
my $write_file = "$read_file.out";


# Open files for input and writing