use strict;
use warnings;
our $lwpavailable = 0;

BEGIN { 
   eval ("
      use LWP::UserAgent;
      use HTTP::Request::Common;
   ");
   
   if ($@) {
      $lwpavailable = 0;
   } else {
      $lwpavailable = 1;
   }
}