#!/usr/bin/perl -w # # use strict; my @lines=system("./script"); chomp(@lines); print @lines;