while ( defined( my $line = <DATA> ) ) {