Select Code to Download

if ( -d 'D:\\Perl\\strawberry\\cpan\\sources' ) {
  # If we are on fake Hotel/Airport wireless,
...
    }
  }
}

use File::Touch;
my @file_list = (
...
  q[D:/Perl/strawberry/cpan/sources/modules/03modlist.data.gz]
);
touch(@file_list);