Select Code to Download

use LWP::UserAgent;
$ua = new LWP::UserAgent;
...
else {
   #something wrong, do something
}