use Win32::OLE;

my $sh = new Win32::OLE 'Shell.Application' or die "new Shell.App";
my $wins = $sh->Windows;

for ( in $wins )
{
	if ( Win32::OLE->QueryObjectType($_) eq 'IWebBrowser2' )
	{
		if ( $_->FullName =~ /IEXPLORE.EXE/ and 
			$_->LocationName =~ /Welcome to my world/ # page's title
			# $_->LocationURL =~ /perlmonks.org.*jdporter/ # page's URL
		) {
			$_->Refresh;
		}
	}
}