Select Code to Download

my $var = <STDIN>;
while ($var = <STDIN>)

use strict;

...
  (print "You guessed too low\n"), next if $guess < $target;
  (print "You guessed too high\n"), next if $guess > $target;
  }