#!/usr/perl
use strict;
require Exporter;
use AutoLoader qw(AUTOLOAD);

use vars qw(@ISA @EXPORT);
our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw( get_meminfo ) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw( get_meminfo
);

sub get_meminfo
{
	my %mem;
	open(INNFIL,"/proc/meminfo");
	my @array=<INNFIL>;
	close(INNFIL);
	foreach my $line (@array) {
		my ($name,$value)=split(/:/,$line);
		$value =~ s/ //g;
		$value =~ s/kB//g;
		chomp($value);
		$mem{$name}	= $value;
	}
	return %mem;
}
1;
__END__