#!/usr/bin/perl -w

my (@hexes) = @ARGV;
foreach (@hexes) {
	my $dec = hex($_);
	print "HEX: $_  DEC: $dec\n";
	my $bin = "";
	while ($dec > 0) {
		$bin = (($dec % 2 == 1) ? "1" : "0") . $bin;
		$dec = int($dec / 2);
	}
	print "BIN: $bin\n";
}