Select Code to Download

use warnings;
use strict;
...
        $w->close;
    };
};

use warnings;
use strict;
...
    1;
});
$mech->get('http://localhost:5000');