perl -DXt -we 'my $l = 100; my $a = "A" x $l;'