#!/usr/bin/perl -w

use strict;
use Sys::Hostname;

my ($arg1, $arg2) = @ARGV;

open VM, '</proc/meminfo' or die "Cant open meminfo: $!";
my ($val1, $val2);

while (<VM>) {
	if (/^$arg1:\s+(\d+) kB$/i) {
		$val1 = $1;
	} elsif (/^$arg2:\s+(\d+) kB/i) {
		$val2 = $1;
	}
}
close VM;

die "Cant read VM data "
	if !defined $val1 || !defined $val2;

$val1 *= 1024;
$val2 *= 1024;

my $h = hostname;
print <<EOF;
$val1
$val2

$h
EOF

1;

