#!/usr/local/perl5.006/bin/perl -w

use strict;
my $var = shift;

print "var: $var\n";
my $temp = sprintf "%lx", $var;
print "temp: $temp\n";
my $packed = pack "H*", $temp;

print "packed: $packed\n";

$temp = unpack "H*", $packed;
print "temp: $temp\n";
my $unpacked = hex $temp;

print "unpacked: $unpacked\n";