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