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