if ($hexbin eq "-h"||"-H") {
    binhex();
}
elsif ($hexbin eq "-b"||"-B") {
    hexbin();
}