#!/usr/bin/env perl while (1) { print "hello, world\n"; } exit;