use strict;
use warnings;

while(<DATA>){
  if(/DN:$/){
    chomp(my $filename = <DATA>);
    open FH, '>', $filename or die;
  }
  else { print FH $_; }
}