#!/usr/bin/perl -s

our ($i); # inverse

my $f;
if($f){ $f="target-source.dmp"; } 
else  { $f="source-target.dmp"; }

my $c="nat-ptd query";

use strict;
my $p = shift || ".";
if   (-f $p)                             { system("$c          $p"); }
elsif(-d   $p and -f "$p/$f")            { system("$c       $p/$f"); }
elsif(-d  "$p.ptd_" and -f "$p.ptd_/$f") { system("$c  $p.ptd_/$f"); }
elsif(-d "${p}ptd_" and -f "${p}ptd_/$f"){ system("$c ${p}ptd_/$f"); }
else{warn "$p not found\n"}