Running a non-perl script into my perl script? [duplicate]

I am writing a Perl script to automate some software installation.

In my script I run another bash script and take its output and print it again.

print `/home/me/build.sh`;

but build.sh script take 8 minutes, so my script wait till the 8 minutes and script finishes the starting in printing the output.

How can I print each line from the build.sh program as it is running in bash shell?

As the comment below I use system ("/home/me/build.sh");

but the output goes to shell however I make out redirection in my script to my log file,

open $fh, "> filename";
*STDOUT = $fh;
*STDERR = $fh;

Then should when I use system function its output will be redirected to filename, but it isn't.

Should I use print system ("/home/me/build.sh"); instead of system ("/home/me/build.sh");?

The full code:

#!/usr/bin/perl

use strict;
use warnings;

use IO::File;

my %DELIVERIES = ();
my $APP_PATH = $ENV{HOME};
my $LOG_DIR = "$APP_PATH/logs";
my ($PRG_NAME) = $0 =~ /^[\/.].*\/([a-zA-Z]*.*)/;

main(@argv);

sub main
{
        my @comps = components_name();
        my $comp;
        my $pid;

        while ( scalar @comps ) {
                $comp = pop @comps;
                if ( ! ($pid = fork) ) {
                        my $filename = lc "$LOG_DIR/$comp.log";

                        print "$comp delpoyment started, see $filename\n";

                        open (my $logFile, ">", "$filename") or (die "$PRG_NAME: $!" && exit);
                        *STDOUT = $logFile;
                        *STDERR = $logFile;

                        deploy_component ( $comp );

                        exit 0;
                }
        }
        my $res = waitpid (-1, 0);
}


sub components_name
{
        my $FILENAME="$ENV{HOME}/components";
        my @comps = ();

        my $fh = IO::File->new($FILENAME, "r");

        while (<$fh>)
        {
                push (@comps, $1) if /._(.*?)_.*/;
                chomp ($DELIVERIES{$1} = $_);
        }

        return @comps;
}

sub deploy_component
{
        my $comp_name = shift;

        print "\t[umask]: Changing umask to 007\n";
        `umask 007`;

        print "\t[Deploing]: Start the build.sh command\n\n";
        open (PIPE, "-|", "/build.sh");
        print while(<PIPE>);
}