#!/bin/perl
# usage testforever <scriptname>
#
$|++;
# Of course -- nothing can run forever.
print "1";