run-perl-script-from-another

use feature qw(say);
use strict;
use warnings;

my @files = `perl p1.pl`;
chomp @files;

for my $file (@files) {
    say "file: '$file'";
}