#!/usr/bin/env perl -w

use strict;
use warnings;
use Fcntl;
use Tie::File;

#-- saving result to output.txt
open STDOUT, ">", "output.txt" or die "$0: open: $!";

#-- write to output.txt and print on console
print "##Start of SCRIPT.PL##\n"; 

my $run = "SCRIPT.pl";
system($run);

#-- open the file 
tie my @rows, 'Tie::File', 'output.txt', autochomp => 0 or die "error: $!\n";

#-- print last line of output.txt on console
print "$rows[-1]";