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

##</code><code>##

my_print("Directory to install to: ");

##</code><code>##

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