With the minimum of changes to existing code:

   open (my $less, "|less") or die "No less: $!\n";
   my $OldHandle = select $less;

   print "help text\n";    # will go to less

   close ($less);          # Don't forget this!
   select $OldHandle;
[download]