{
    open local(*STDERR), '>', \my $verbosity or die $!;
    my $status = system "/bin/tar -cv *.foo 1>$tarfile";
    # parse $verbosity and log it
}