{
  my $buf = "A" x (1024 * 1024 * 100);
  print "Allocated " . length($buf) . " byte buffer\n";
}
print "Finished\n";
sleep(1000);