Select Code to Download

sub consolidate_logs ($$$) {
    my ($destination_file, $dir, $filename_str) = @_;
...

    close(OUT);
}

sub consolidate_logs ($$$) {
    my ($destination_file, $dir, $filename_str) = @_;

    system("ls $dir | grep $filename_str | xargs -iX cat $dir/X >> $de
+stination_file");
}

sub split_logs ($$$) {
    my ($source_file, $business_list, $filename_prefix) = @_;
...
        print "Log for $name created at " . localtime() . "\n";
    }
}