clear_cache_of_domain.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Win32::UrlCache::Cache;
use Win32::INET qw/GetUrlCacheFile/;
use File::Remove;

my $index = Win32::UrlCache::Cache->new();
foreach my $url ( $index->urls ) {
  if ( $url =~ /beconnected/ig ) {
    my $path = GetUrlCacheFile( $url );
    remove( \1, $path );
  }
}