#!/usr/bin/perl -w
use strict;
use Getopt::Long;
my $size = 1;

{
    local @ARGV = qw/ --size 20 /;
    GetOptions( 'size=s' => \$size );
}

print 'x' x $size;