you'll be wanting either

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

or at the command line

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

Or in both cases withouth the strict pragma in use you can drop the my declaration on $A