print "\tPick a number:\n";
  7 print "\t1 Brute Force Attack.\n";
  8 print "\t2 Dictionary Attack.\n";
  9 print "\t   Your choice here: ";
 10 $input=<STDIN>;
 11
 12 if ($input == 1) {
 13   print "\a\t\tYou picked Brute Force Attack.\n";
 14 @bfArray=("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
 15 foreach $element (@bfArray) {
 16 #print "This is element 1 " .  $bfArray[1] . "\n";
 17  $i++;
 18 print $i . " " . $element . "\n";
 19 }
 20 #$rtn_Bforce = system("unzip secret_brute.zip");
 21 #print "Heres return type: $rtn_Bforce\n";
 22 #print "Heres password:  . $rtn_Bforce\n";
 23
"hw5.pl" 28L, 848C