#!/usr/local/bin/perl
warn ‘x’ x 100