# 795500

# $| = 1;		# autoflush

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

open LOGFILE, '<', $main_log
     or die "Cannot open $main_log for read, $!";

my $prior_content;
while (<LOGFILE>) {
	$prior_content = $prior_content . $_;
}
close( LOGFILE );

open LOGFILE, '>', $main_log
     or die "Cannot open $main_log for write, $!";

print LOGFILE $prior_content;
print LOGFILE "\n---\n";

print LOGFILE "\n\tStart: Coming from the script.\n";

open( SUBLOG, '<', $sub_log )
  or die( "Error: Cannot open sub_log" );

print LOGFILE $_ while( <SUBLOG> );

close( SUBLOG );

print LOGFILE "\n\tEnd of sub_log as read by script.\n";

print LOGFILE "\tEnd: Coming from the script.\n";
close( LOGFILE );