#!/usr/bin/perl
print "Allocating $ARGV[0] megabytes of memory...\n";
$big = "";
for( $i=0; $i<$ARGV[0]; $i++ )
{
  $big .= "1234567890"x104858;
}
print "Press ENTER to release memory...\n";
<STDIN>;