if ( -d 'D:\\Perl\\strawberry\\cpan\\sources' ) {
  # If we are on fake Hotel/Airport wireless,
  # prefer the minicpan to the poisoned wireless.
  eval { require LWP::Online; };
  unless ( $@ ) {
    if ( LWP::Online::online() ) {
      push @urllist, q[file:///D:/Perl/strawberry/cpan/sources/];
    } else {
      unshift @urllist, q[file:///D:/Perl/strawberry/cpan/sources/];
    }
  }
}