#!/usr/bin/perl -w
use strict;
use FileHandle;

my $pid = $$;
my $fh = FileHandle->new("</proc/$pid/stat");

my $data = <$fh>;
chomp $data;
$fh->close;

my @procinfo = split(/\s+/,$data);

print "$$ memory = ",$procinfo[22] ," bytes\n";