use strict;
use warnings;

my ($data, $mem);
my $kb = ' ' x 1024**2;

do {
    $data .= $kb;
    $_ = `ps -p $$ -o %mem`;
    ($mem) = m/(\d+\.\d+)/;
}
while ($mem < 50);