my $template = Text::Template->new(
    TYPE   => 'FILE',
    SOURCE => $tf,
    PREPEND => 'use strict;
            use vars qw($value $pos);
        ',