#!perl
my $t=Template->new 
( 
    INCLUDE_PATH => 'c:/', 
    COMPILE_DIR  =>"c:/tt", 
    FILTERS      => 
    { 
        fop => sub 
        { 
            open OUT, ">tmpf"; 
            print OUT @_; 
            close OUT;
            
            $_ = `fop -fo tmpf -pdf test.pdf`; 
            
            unlink "tmpf";
            
            return $_;
        }
    }
);
#....