use Win32::OLE;

my $ie = Win32::OLE->new('InternetExplorer.application') or die "oops\n";
$ie->{visible} = 1;
$ie->Navigate("http://www.cpan.org");

my $dos = Win32::OLE->new('Cmd.application') or die "oops\n";
$dos->{visible} = 1;

##</code><code>##

Win32::OLE(0.1601) error 0x800401f3: "Invalid clas string" at C:\scripts\dos.pl line 14
        eval {...} called at C:\dos.pl line 14
oops