Converting IP Options from binary to hex in Perl

A quick one liner to convert TCP Options from binary to Hex.

my $tcp_obj = NetPacket::TCP->decode($ip_obj->{data});
my $tcp_options = sprintf("%08X",unpack("N",$tcp_obj->{options})).