morsine

#!/usr/bin/perl
my $dev = "/sys/class/leds/green_led/brightness";
my $OFF = "1";
my $ON = "0";

my ($ip) = `ifconfig`=~/ddr:(.*?) /;
#print $ip;

# Strip out the .'s
$ip =~ s/\.//g;