#!/usr/bin/perl -w use strict; # internal lib use BCD::Bcd; use BCD::Common; main_bcd();