#!/usr/bin/perl
$octet1 = 10;
$octet2 = 34;
$octet3 = 2;
$octet4 = 252;

$hex1 = sprintf("%x", $octet1);
$hex2 = sprintf("%x", $octet2);
$hex3 = sprintf("%x", $octet3);
$hex4 = sprintf("%x", $octet4);

print "$hex1\n";
print "$hex2\n";
print "$hex3\n";
print "$hex4\n";