Select Code to Download

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