#!/usr/bin/perl
open(P,"ps aux|") or die "ps aux failed ";
$mozilla_vsz=0;
$mozilla_rss=0;
$java_vsz=0;
$java_rss=0;
while(<P>)
{
    ($user,$pid,$cpup,$mem,$vsz,$rss,$tty,$stat,$start,$time,$cmd) = split(/\s+/);
    if($cmd =~ /java_vm/)
    {
      # print "java_vm: $cmd:$vsz:$rss\n";
      if($java_vsz==0)
      {
	  $java_vsz=$vsz;
	  $java_rss=$rss;
      }
      elsif($java_vsz != $vsz)
      {
	  print STDERR "versions of java_vsz=$java_vsz neu=$vsz\n";
      }
    }
    if($cmd =~ /mozilla/)
    {
	#print "mozilla: $cmd:$vsz:$rss\n";
	if($mozilla_vsz==0)
        {
	  $mozilla_vsz=$vsz;
	  $mozilla_rss=$rss;
        } 
        elsif($mozilla_vsz != $vsz)
        {
	   print STDERR "versions of mozilla_vsz=$mozilla_vsz neu=$vsz\n";
        }
    }
}
print "$mozilla_vsz $mozilla_rss $java_vsz $java_rss\n";
close(P);