Select Code to Download

#!/usr/local/bin/perl -wT

...
    }
    warn $msg;
}

sub run_loop
{
...
        $self->post_request;

}