#!/usr/bin/perl
while (1) {
        my $aap = "a" x 8192;
        sleep 1;
}