#### Create random cart id
        my @seed;
        my $a= "a";
        my $b= "z";
        @seed=($a..$b,2..9);  
        my $rand;
        foreach(0..7){
                $rand.=$seed[rand(@seed)];
        }
#### end of random cart id