it's useful if you don't want someone to touch your script without your approval

gistfile1.PL

use strict;
use Term::ProgressBar;
use Time::HiRes qw(sleep);
 
$SIG{INT} = sub {};
 
my $progress = Term::ProgressBar->new({
    name => 'deleting all data',
    count => 1000,
    ETA => 'linear',
});
$progress->minor(0);
for my $i (0 .. 1000) {
    $progress->update($i);
    sleep rand(0.3);
}