my $res = qx{./script};
my @lines = split /\n/, $res;