#!/usr/bin/perl -w

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use LWP::Simple;

my $newText = get 'http://meme.boxofjunk.ws/moar.txt?lines=1';

chomp($newText);

my $ua = LWP::UserAgent->new;


my $req = POST 'http://fritz.repeater/cgi-bin/webcm',
  [        
  'errorpage' => '../html/de/menus/menu2.html',
  'getpage' => '../html/de/menus/menu2.html',
  'nlr:settings/TDS_Config' => 3,
  'nlr:settings/TDS_Orientation' => '0',
  'nlr:settings/TDS_ScrollText' => $newText.'       ',
  'nlr:settings/TDS_ShowMask' => 219,
  'nlr:settings/TDS_Timeout' => 300,
  'time:settings/time' => '1258493499,-60',
  'var:errorpagename' => 'infoled',
  'var:menu' => 'system',
  'var:pagemaster' => '',
  'var:pagename' => 'infoled'
  ];

$ua->request($req);