Help for this page
#!/usr/bin/perl use strict; ... ) or die $!; print $cl "GET / HTTPS/1.0\r\n\r\n"; print <$cl>;