Files
linguist/samples/Perl/getchar.al