my $string = `uuidgen`;
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10); 

##</code><code>##

use Data::UUID;
my $string = Data::UUID->new->create_str;
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);

##</code><code>##

use UUID::Tiny;
my $string = create_UUID();
$string =~ tr [\-abcdef] [9012345];
my $first_10 = substr($string, 0, 10);