[Perl]Crypt::SSLeayのテストで不思議に思った

t/01connect.tの10行目のくだり。

eval {
    $sock = Net::SSL->new(
        PeerAddr => '127.0.0.1',
        PeerPort => 443,
        Timeout  => 3,
    );
};

なんで自分自身がHTTPSポートを開放してることが前提？
Windowsならどうすんの？そもそもHTTPSDやらない子は？