#!/usr/bin/perl -w
use strict;
my $A="a";$A++for(0..285074);print$A;

##</code><code>##

perl -Mstrict -le 'my $A="a";$A++for(0..285074);print$A;'