If ya wanna go up the road with Win32::GuiTest, then this should be something for ya that makes it very simple. We open up the Internet Explorer print dialog box and now we just have to focus this and send it "ENTER" to start printing.

    use strict;
    use LWP::Simple;
    use Win32::GuiTest qw( WaitWindowLike SetForegroundWindow SendKeys
+  );
    
    my $url = q(http://www.cnn.com);
    my $fn  = $ENV{TEMP}."\\test.html";
    getstore ($url, $fn);
    
    my $prg = qq(start rundll32 mshtml.dll,PrintHTML "$fn");
    system $prg;
    
    $_ = WaitWindowLike( 0, qr/Apply/i, undef  , undef,  undef, 10000)
+;
 
    SetForegroundWindow($_);
    SendKeys ("{ENTER}");
    print "Printed ",-s $fn, " bytes from $url";
[download]

Switches to mshtml.dll
%1 - File to print
%2 - Printer-name
%3 - Printer driver
%4 - Printer port