Select Code to Download

print "Guess the Code:";
$st=time();
...
$seed++;
$ip=<>;
}

use strict;
use warnings;
...
my $tt = $et - $st;

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