Text2Hex на Perl! Help!

Ребят, помогите пожалуйста, в скрипте нужно перевести данные из text в hex (тут могу ошибаться) т.е. в формат который используется при mysql injection
Например
admin в 0x61646D696E
Стандартная функция hex почему то переводит не верно.
Например:
admin в 173.

Есть скрипт на PHP, может кому то поможет понять суть и помочь:

 

На php всё гораздо проше -
<?
echo '0x'.bin2hex($text);
?>

 

Вопрос решен!
#!/bin/perl

use strict;
use warnings;

my $str = "some string";
my $hex = unpack('H*', "$str");

my $len = length($hex);
my $start = 0;

print "x'";
while ($start < $len) {
print substr($hex,$start,2);
$start += 2;
}
print "'\n";