#!/usr/bin/perl for (qw(lets give this a whirl)) { print "limmerick in code\n" if length > 'load'; } exit "excuse me while i go and hurl";