PERL get网页

while (1==1){
use LWP::Simple qw(get);
$host = "http://1.19.17.1:9080/app/html/jMhFclNyMQNBuPatBuOROawcRN/iuGoE7UinSGvjIZQ=";
$content = get($host);
sleep (1);

只支持HTTP协议: