my $decode = ST2614::decode(FILEHANDLE, $ARGV[1]);
my $encode = ST2614::encode(HoA, $ARGV[1]);