Win32::Internetでhttpsアクセスするテスト。httpでアクセスしてもhttpsにリダイレクトするサイトならこのままで動く?

win32-internet-https.pl

use strict;
use warnings;

use Win32::Internet;

my $REQ;
my $HTTP;
my $INET = new Win32::Internet();
$INET->HTTP($HTTP, "gmail.com");
$HTTP->OpenRequest($REQ, "/");
$REQ->AddHeader("If-Modified-Since: Saturday, 16-Nov-96 15:58:50 GMT");
$REQ->SendRequest();
my $statuscode = $REQ->QueryInfo("",HTTP_QUERY_STATUS_CODE);
my $lastmodified = $REQ->QueryInfo("Last-Modified");
my $file = $REQ->ReadEntireFile();
$REQ->Close();
$HTTP->Close();
print $file;