opendir my $dh, '.' or die "ERROR: Couldn't open: $!";
my @entries = readdir($dh);
closedir $dh;
foreach my $entry (@entries) {
    print "$entry\n";
	print gethex($entry), "\n";
}

sub gethex {
	my $v = shift;
	return join '', map { sprintf("%x-", ord) } split //, $v;
}