#!/usr/bin/perl # # Der WAN-Reader soll vom Router eine die WAN-Adresse auslesen und auf Anfrage per Mail versenden # # # use strict; use warnings; use IO::Socket::SSL; use LWP::Simple; use LWP::Protocol::https; # use Crypt:SSLeay; my $browser=LWP::UserAgent->new(); my $seite=$browser->get('https://speedport.ip/top_status.stm'); print $seite; print "\n\n 2. Version"; my $seite_code = $seite->decoded_content();