use strict; use warnings; use Test::PureASCII tests => 2; for my $file ('ascii.txt', 'umlaut.txt') { file_is_pure_ascii($file, "Only ASCII in $file"); }