Select Code to Download

MAIN: {
    # All of your code goes here...
    if ( $bad_scenario ) { redo MAIN; };
}

my $bad = 0;
MAIN: {
...
    # Close open filehandles, reset globals, etc.
    print "Continue block\n";
    if ( $bad ) {$bad=0; redo MAIN;};