my $afile='dir1/firstfile.txt';<br>
my $bfile='dir2/secondfile.txt';<br>
my $bash_command='learn.sh '.$afile.' '.$bfile.' |';<br>
open(my $output,$bash_command) or die $!;<br>
while(my $line=<$output>){<br>
	print "$line";<br>
	
}

##</code><code>##

my $afile='dir1/firstfile.txt';<br>
my $bfile='dir2/secondfile.txt';<br>
@args = ("learn.sh", $afile, $bfile);
    system(@args) == 0
        or die "system @args failed: $?"

##</code><code>##

		
my $output=`learn.sh $afile $bfile`;