1 2 my $where; 3 4 $where= $ARGV[0]||$ARGV[1]||'/usr/local'; 5 print "Installing share files to $where/share/psh\n"; 6 system("mkdir -p $where/share/psh"); 7 system("cp -r share/themes $where/share/psh"); 8 system("cp -r share/complete $where/share/psh"); 9 10