1 2 3 4 5 6 7 8 9
#!/usr/bin/perl -w use strict; # internal lib use BCD::Bcd; use BCD::Common; main_bcd();