Have an array of steps, and have your script take an optional start-at parameter.

my @steps = (sub {...}, ...);

my $start_at = shift || 0;

for my $this_step ($start_at .. $#steps) {
  $steps[$this_step]() or die "Oops! at step $this_step\n";
}
[download]