Select Code to Download

use strict;
use warnings;
...
if (@ARGV) {
    print $array[0];
} #

</i><c> inside the blockquote.

<p><c><p>

#!/usr/bin/perl
use warnings;
use strict;
...
  do something;
}