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