I'm no Win32::OLE guru. From what i gleaned from the documentation this should do the trick:

use Win32::OLE;
my $ie = Win32::OLE->new("InternetExplorer.Application") 
  or die "oops: ".Win32::OLE::LastError();
$ie->{'Visible'}=1;
$ie->Navigate("http://www.perlmonks.org/");
sleep(1);
$ie->ExecWB(6,0);
[download]

If you use $ie->ExecWB(6,2); it should print without popping up the print preferences dialog (not tested, because i don't have a printer right now)