Select Code to Download

se strict;

Can't locate object method "se" via package "strict" (perhaps you forg
+ot to load "strict"?)

my $data = `/sbin/ifconfig | grep “RX bytes” | head -1`;

$data =~ /RX bytes\:(\d+) .*TX bytes\:(\d+) .*/;
my $recv = $1/1024;
my $sent=$2/1024;
$recv =~ s/\..*//;
$sent =~ s/\..*//;

sub get_measures {
    my $device = qr/\A\Q$_[0]\E\s/;  # pass device name as first argum
+ent
...
    return $recv, $sent;
    }