use strict;
use POSIX qw(setsid);

chdir '/' or die "Can't chdir to /:$!";
open STDIN, '/dev/null' or die "Can't read /dev/null:$!";
open STDOUT, '>>/dev/null' or die "Can't write to /dev/null:$!";
open STDERR, '>>/dev/null' or die "Can't write to /dev/null:$!";
defined(my $pid = fork) or die "Can't fork:$!";
setsid or die "Can't start a new session:$!";
umask 0;

# this point on its a polling program. Didn't copy it entirely.

while (1) {

my (@lines, @fields, @bytes, $mysecond1, $mysecond2, @throughput, @bandwidth);

@lines = `/sbin/ifconfig eth0` or die("$!\n");
@fields = split(/\s+/, $lines[6]);
$fields[6] =~ /(([^:]*):?){2}/;
$bytes[0] = $2;
$fields[2] =~ /(([^:]*):?){2}/;
$bytes[2] = $2;
$mysecond1 = time;

sleep 15;

@lines = `/sbin/ifconfig eth0` or die("$!\n");
@fields = split(/\s+/, $lines[6]);
$fields[6] =~ /(([^:]*):?){2}/;
$bytes[1] = $2;
$fields[2] =~ /(([^:]*):?){2}/;
$bytes[3] = $2;
$mysecond2 = time;