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