Test

#!/usr/bin/perl -w

use strict;

while(1) { print "stuff"; }