dinmammas

#!/usr/bin/perl
# Above path to perl may need to be changed, depending on your env. Type "which perl" in a terminal to find out.

# Original script by Thomas Johansson

use strict;
use warnings;

my $statusnum = "";
my $battery = "0";