struct alarm *a;

a->snooze_timeout_tag = 0;

#!/usr/bin/perl

use strict;
use warnings;

my @watch = (
    "/sbin/dsme",
    "/sbin/dsme-server",
    "/usr/bin/pulseaudio",
    "/usr/bin/Xorg",
    "/usr/bin/dbus-daemon",
    "/usr/bin/systemui",
    "/usr/bin/hildon-status-menu",
    "/usr/bin/hildon-home",
    "/usr/bin/hildon-desktop",
    "/usr/sbin/browserd"
);

my %initial = ();

# percentage VSZ has to change to report
my $THRESHOLD = 0.0;

# will check once every $INTERVAL seconds
my $INTERVAL = 4;

while(1) {
    my %current = ();

    open(FH, "ps -eo vsz,command |");

    while(<FH>) {
	chomp;
	my @fields = split;
	my $vsz = $fields[0];
	my $cmd = $fields[1];
    
	# print "vsz($vsz) cmd($cmd)\n";

        foreach my $daemon (@watch) {
	    if($daemon eq $cmd) {
    		$current{$cmd} += $vsz;
    	    }
        }
    }

    if(%initial) {
	foreach my $daemon (keys %current) {
	    my $vsz0 = $initial{$daemon};
	    my $vsz1 = $current{$daemon};

	    my $mvar = (100.0 *($vsz1 - $vsz0)) / $vsz0;

	    if(abs($mvar) > $THRESHOLD) {
		    my $sign = "+";
		    
		    if($vsz1 < $vsz0) {
			$sign = "-";
		    }
		    
		    my $now = localtime;
		    print "[$now] $daemon, $vsz0 -> $vsz1 ($sign)\n";
	    }
	}
	
	# remove next line if absolute (from start) values are wanted
	%initial = %current;
    } else {
	print "Initializing..\n";
	%initial = %current;
    }

    close(FH);
    sleep($INTERVAL);
}

apt-cache show osso-systemui-tklock
Package: osso-systemui-tklock
Priority: optional
Section: misc
Installed-Size: 76