Select Code to Download

$ perl -Mstrict -Mwarnings -e '
use Smart::Comments;
...
    qx{ls -l > /dev/null 2>&1};
}
'

#!/usr/bin/env perl

...

    print qq{\b*\nFinished.\n};
}

$ pm_text_spinner_ryo.pl
------------------------------------------------------------
...
Starting ...
Running: *
Finished.

sub run_with_progress {
    use Smart::Comments;
...

    return;
}

$ pm_text_spinner_sc_spin.pl

...
                                                                     

### Finished.

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

    return;
}