#!/usr/bin/perl fork or exit for 1..100; <>;