($defman, $defbin) = @ARGV;

$mdir = &finddir($defman,
          '/usr/local/man/man1', '/usr/man/local/man1',
	  '/usr/man/man.L', '/usr/man/manl',
	  '/usr/man/mann', '/usr/man/u_man/man1', '/usr/man/man1'
      );

print "\nWhat directory would you like your man page in?\n\t[$mdir] ";

chop($dir = <STDIN>);
$dir = $mdir if $dir =~ /^\s*$/;
if (-d $dir) {
    ($suffix) = ($dir =~ m#man([^/]+$)#);
    $mpage = "$dir/pt.$suffix";
} else {
    die "$dir: not a directory";
} 

&run("cp pt.1 $mpage");

$bin = &finddir($defbin, '/usr/local/scripts', '/usr/local/bin', 
		    split(':', $ENV{'PATH'}));

print "\nWhat directory would you like your script in?\n\t[$bin] ";

chop($hisbin = <STDIN>);

$bin = $hisbin unless $hisbin eq '';

chmod (0755, 'pt');
&run("cp pt $bin");

sub finddir {
    for $dir (@_) {
	next if $dir eq '';
	return $dir if -d $dir;
    } 
    '';
} 

sub run {
    local($cmd) = shift;
    print "\n$ $cmd\n";
    system($cmd) && die;
}