Select Code to Download

my $error;
{
...
if (defined $error) {
    ...; # clean up mess and/or warn the user
}

{
    do {
...
    }
    ...; # clean up mess
}