Select Code to Download

$ cat 7.cw1.pl
#!/usr/bin/perl -w
use 5.011;
...
__END__ 

$

$ cat .bash_aliases 
alias pt='perltidy -i=2 -b '

$ pt 7.cw1.pl
## Please see file 7.cw1.pl.ERR
$ cat 7.cw1.pl.ERR
...
85:    unexpected character decimal 185 (�) in script
85:    Giving up after error
$

foreach my $child ( $vars{cw}->children ) {
  next unless $child->is_dir;

...
  

}

dyetya is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/eug
+ene
base dir is eugene

sub print_aoa_utf8 {
  use warnings;
  use 5.011;
...
  }
  return $a;
}