foreach my $line (@lines) { print STDERR "$line\n;" }