#!/usr/local/bin/perl
warn “x” * 100