Speedtouch 510 & MRTG

#!/usr/bin/perl
use Net::Telnet();
$oSpeedTouch = new Net::Telnet( Timeout=>10, Prompt=>'/=>/');
$oSpeedTouch->open("192.168.0.254"); #IP till modemet
$oSpeedTouch->login("", "LÖSENORD"); #fyll i ditt pw till modemet
@lines = $oSpeedTouch->cmd( "ip iflist");
foreach( @lines ) {
  @aFields = split/\s+/;
  if( $aFields[0] =~ /\d/ ) {
    if( $aFields[1] =~ "pppoe" ) {
      print   $aFields[4];
      print   "\n";
      print   $aFields[5];
    }
  }
}
$oSpeedTouch->cmd(String=>"exit", Errmode=>"return");

WorkDir: /www/htdocs/mrtg/   #byt ut 
Options[_]: nopercent,growright,nobanner,nolegend,noinfo,gauge
Target[eth0]: `/usr/local/etc/mrtg/router` #sökväg till scriptet
Title[eth0]:Traffic Analysis for router
PageTop[eth0]: <H1>Traffic Analysis for router </H1>
MaxBytes[eth0]: 62500
Unscaled[eth0]: dwmy