Help for this page
@outlines = <HIS_OUT>;
while (defined (my $line = <HIS_OUT>)) { chomp; print "Read: '$line'\n"; };