#!/usr/bin/perl

use open IN  => ":byte";
use constant A => 1;

__END__