Select Code to Download

our %info = (version => "0.3"
             format  => 0, 
             ...
             elite   => 1,
            );

    print "This is a debug message\n" if ($debug);

return and "Failed to login\n" unless ($http_res->is_success);

foreach my $d (@data) {
    if ($d->[5] == 1) {
...
    }
}