my $eval = qq~package $nspace; 
sub handler { 
   local $0 = $filename;~ . join('', @content);