while (<STDIN>) {
        chomp;
        $Pack = pack("H2", $_);
        print ":$_: packs to :$Pack:\n";
        $Un = unpack("H2", $Pack);
        print ":$Pack: unpacks to :$Un:\n";
}