diff --git a/misc/sax_parser_test.pl b/misc/sax_parser_test.pl
index c99f07bad2..b2e597405c 100755
--- a/misc/sax_parser_test.pl
+++ b/misc/sax_parser_test.pl
@@ -1,13 +1,17 @@
#!/usr/bin/perl
-#use strict;
-#use warnings; FIXME - Bug 2505
+
+use strict;
+use warnings;
+
use XML::SAX;
+use Encode;
+
my $parser = XML::SAX::ParserFactory->parser(
Handler => MySAXHandler->new
);
binmode STDOUT, ":utf8";
-print "\x{65}\x{301}\n";
-use Encode; $parser->parse_string(encode_utf8("\x{65}\x{301}"));
+print "\x{65}\x{301}\n";
+$parser->parse_string(encode_utf8("\x{65}\x{301}"));
$parser->parse_string("\xEF\xBB\xBF\x{65}\x{301}");
package MySAXHandler;