$ perl -e '#!/usr/bin/perl
> use warnings;
> use strict;
>
> my $count = 42;
> my $completed = 6;
>
> notify_progress();
> $completed = 7;
> notify_progress();
>
> sub notify_progress {
>     print "Processing: ",  $count, " files to process ; ", $completed, " files completed\n";
> }'
Processing: 42 files to process ; 6 files completed
Processing: 42 files to process ; 7 files completed