#!/usr/bin/env perl 
use strict;
use warnings;
use Template;

my $t = {
    count     => 42,
    completed => 6
};
my $outtt2 =
  "\rProcessing: [% count %] files to process ; [% completed %] file completed\n";
my $template = Template->new;

notify_progress ();

$t->{completed} = 7;

notify_progress ();

sub notify_progress {
    $template->process (\$outtt2, $t);
}