use BSD::Resource;
my $limit = 100*1024*1024; # 100 MB
setrlimit(RLIMIT_AS, $limit, $limit);