#!/usr/bin/perl
use strict;
use POSIX;

print `ulimit -d 40`;
print `ulimit -a`;
print `pwd`;