my $cmd    = `ps -o args $$ | grep CJ.pl`;
        my @cmd = split(/\s/,$cmd);
        my $cmdline = "$cmd[0] "." $cmd[1]";
        foreach (@ARGV) {
            $cmdline .= /\s/ ?   " \"" . $_ . "\"":     " "   . $_;
        }

 print "$cmdline\n";