#!/usr/bin/perl -Tw

$ENV{PATH} = '';
my($s);
open(IN, '/usr/bin/apm |');
chomp($s = <IN>);
close(IN);
$s = ($s =~ /(\d*%)/)[0];
print "$s\n";