open IN, "</proc/swaps" or die "No swap file: $!\n";
<IN>;
my @fields = split <IN>;
$field[3] = 0 unless $field[3];
print "swap used = $field[3]\n";