Select Code to Download

my $afile='dir1/firstfile.txt';
my $bfile='dir2/secondfile.txt';
...
    print "$line";
    
}

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

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