sub DoWorkOriginal {
    my( $firstinput, $secondinput, $inFile, $outFile ) = @_;
    use autodie qw/ open close /;
    open my $curInfile, '<:raw', $inFile;     ## or die by autodie
    open my $OUT1,      '>:raw', $outFile;    ## or die by autodie

    my $full_data = spankTheMonkey( $curInfile );
    monkeyBusiness( $firstinput, $secondinput, $OUT1, $full_data );
    
    close $curInfile;
    close $OUT1;
} ## end sub DoWorkOriginal