use strict;
use warnings;

my $st = time ();

{
    my $code = 1 + int rand 10;
    
    print "Guess the Code:";
    my $guess = <>;
    chomp $guess;
    redo if $code != $guess;
}

my $et = time ();
my $tt = $et - $st;

print "\n  Time taken to break the Code ..: $tt seconds\n";