#!/usr/bin/perl
           
# To burn up memory quickly, run this with option "death".

$option = shift;
if ($option eq "death") {
  $line = "1::";
} else {
  $line = "1:";
}
while (1) {
  @X = split(/:/, $line);
}