use strict;
use warnings;

1 while (print "Guess the Code: "), <> != (1+int rand 10);
print "\n  Time taken to break the Code ..: ", time()-$^T, " seconds\n";