Select Code to Download

#!/usr/bin/perl -w
use strict;
...
do {
  print $string++, "\n";
} while $string ne $end;

my $string = 'a';