{
        my ( $tmp_fh, $tmp_file ) = tempfile( UNLINK => 1 );
        my @data = <DATA>;
        print $tmp_fh @data;
        close $tmp_fh;
        $tmp_fh->autoflush;
        my $out_file = "${file_name}.html";
        my $title    = $file_name . $suffix;
        pod2html("pod2html","--backlink", "-infile=$tmp_file", "-outfile=$out_file", "title=$title", "--verbose" );
    }