Select Code to Download

use strict;
use warnings;
...
        $found_logout = 1 if $key eq "Logout";
    }
}

my $found_logout = 1;
my $i = 0;
...
sub do_db_stuff {
    print Dumper shift;
}