#!/usr/bin/perl
sleep 1 while 1;