se strict;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

sub get_measures {
    my $device = qr/\A\Q$_[0]\E\s/;  # pass device name as first argument

    local $/ = '';  # paragraph mode
    my ( $recv, $sent ) = map {
        /$device/ && /RX bytes\:(\d+) .*?TX bytes\:(\d+)/
            ? int( $1 / 1024 ), int( $2 / 1024 )
            : ()
        } qx[/sbin/ifconfig];

    return $recv, $sent;
    }