sub run_with_progress {
    print q{-} x 60, qq{\nStarting ...\n};

    my ($cmd, $skip) = @_;

    die q{Nothing to run!} unless $cmd;
    $skip ||= 25;   # Arbitrary

    use Term::Spinner;
    my $spinner = Term::Spinner::->new();

    print q{Running: };

    for (0 .. 1000) {
        system $cmd and die qq{'$cmd' failed! $? : $!};

        $spinner->advance() if not $_ % $skip;
    }   

    $spinner->finish();
    print qq{\nFinished.\n};
    undef $spinner;

    return;
}