Create an infinite loop using a for loop:
#!/usr/local/bin/perl -w for (;;) { print "This is the loop that never ends...\n"; }