#!/bin/sh
/var/tmp/DiaPixie.sh  &
/var/tmp/DiaPixie.pl  &
exit 0

##</code><code>##

#!/bin/sh
while : ; do
  r=`wget -O - "http://myip.dtdns.com" 2>/dev/null | head -1`
  logger -t DiaPixie.sh "Got: $r"
  sleep 180
done

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use Sys::Syslog;
while (1) {
  if( defined(my $Address=get("http://myip.dtdns.com")) ) {
    syslog("info","Got: $Address")
  }
  else {
    syslog("info","Got: "        )
  }
  sleep 180
}