...

/usr/share/doc/perl-Filter/examples/closure/UUdecode.pm