#!/usr/bin/perl

use warnings;
use strict;

my $main_log = '/tmp/main_log.txt';
my $sub_log  = '/tmp/sub_log.txt';

print "Start: Coming from the script.\n";

print "Coming from re-opening the opened log file.\n\n";
open( my $sub_log_file, '<', $sub_log )
  or die( "Error: Cannot open $sub_log" );
print $_ while( <$sub_log_file> );
close( $sub_log_file );

print "End: Coming from the script.\n";

##</code><code>##

#$ perl test.pl > /tmp/main_log.txt