#!/usr/bin/perl

use strict;
use warnings;

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

print "Deleting buffer\n";
undef $buf;

print "Finished\n";
sleep(1000);