Select Code to Download

print "Directory to install to: ";
print $log "Directory to install to: ";

my_print("Directory to install to: ");

sub my_print {
  my($txt)= @_;
...
  return unless $log;
  print $log $txt;
}