#!/usr/bin/perl -w

use strict;


my $hex = "Erik";
$hex = unpack("H*", $hex);

print "$hex\n";