# use proxy (comment out if not)
   my %proxy = ( host => 'http://proxy:8080' );

   use LWP::Simple qw(mirror RC_OK RC_NOT_MODIFIED $ua);

   $ua->proxy(http => "$proxy{host}") if (defined $proxy{host});