diff --git a/src/cap5/capr.pl b/src/cap5/capr.pl
index 84a843322..4f8abac3d 100644
--- a/src/cap5/capr.pl
+++ b/src/cap5/capr.pl
@@ -13,283 +13,250 @@ use FindBin qw($Bin);
 use lib "$Bin/../../lib/perl";
 
 use Getopt::Std;
+use EPICS::Path;
 use CA;
 
 ######### Globals ##########
 
-our( $opt_h, $opt_d, $opt_f, $opt_r);
+our ($opt_h, $opt_f, $opt_r);
+our $opt_d = $ENV{EPICS_CAPR_DBD_FILE} || "$Bin/../../dbd/softIoc.dbd";
+our $opt_w = 1;
 
-my $theDbdFile;
 my %record = ();    # Empty hash to put dbd data in
 my $iIdx = 0;       # Array indexes for interest, data type and base
 my $tIdx = 1;
 my $bIdx = 2;
 my %device = ();    # Empty hash to record which rec types have device support
-my $DEBUG=0;        # DEBUG
 
 # EPICS field types
 my %fieldType = (
-                DBF_CHAR        => "DBF_CHAR",
-                DBF_UCHAR       => "DBF_CHAR",
-                DBF_DOUBLE      => "DBF_FLOAT",
-                DBF_FLOAT       => "DBF_FLOAT",
-                DBF_LONG        => "DBF_LONG",
-                DBF_SHORT       => "DBF_LONG",
-                DBF_ULONG       => "DBF_LONG",
-                DBF_USHORT      => "DBF_LONG",
-                DBF_DEVICE      => "DBF_STRING",
-                DBF_ENUM        => "DBF_STRING",
-                DBF_FWDLINK     => "DBF_STRING",
-                DBF_INLINK      => "DBF_STRING",
-                DBF_MENU        => "DBF_STRING",
-                DBF_OUTLINK     => "DBF_STRING",
-                DBF_STRING      => "DBF_STRING",
-                DBF_NOACCESS    => "DBF_NOACCESS",
+    DBF_CHAR     => 'DBF_CHAR',
+    DBF_UCHAR    => 'DBF_CHAR',
+    DBF_DOUBLE   => 'DBF_FLOAT',
+    DBF_FLOAT    => 'DBF_FLOAT',
+    DBF_LONG     => 'DBF_LONG',
+    DBF_SHORT    => 'DBF_LONG',
+    DBF_ULONG    => 'DBF_LONG',
+    DBF_USHORT   => 'DBF_LONG',
+    DBF_DEVICE   => 'DBF_STRING',
+    DBF_ENUM     => 'DBF_STRING',
+    DBF_FWDLINK  => 'DBF_STRING',
+    DBF_INLINK   => 'DBF_STRING',
+    DBF_MENU     => 'DBF_STRING',
+    DBF_OUTLINK  => 'DBF_STRING',
+    DBF_STRING   => 'DBF_STRING',
+    DBF_NOACCESS => 'DBF_NOACCESS',
 );
 
 # globals for sub caget
 my %callback_data;
 my %timed_out;
 my $callback_incomplete;
-my $cadebug = 0;
 
 ######### Main program ############
 
-HELP_MESSAGE() unless getopts("hd:f:r");
+HELP_MESSAGE() unless getopts('hd:f:rw:');
 HELP_MESSAGE() if $opt_h;
 
-# Select the dbd file to use
-if($opt_d) {                            # command line has highest priority
-    $theDbdFile = $opt_d;
-}
-elsif (exists $ENV{EPICS_CAPR_DBD_FILE}) {    # Use the env var if it exists
-    $theDbdFile = $ENV{EPICS_CAPR_DBD_FILE};
-}                                        # Otherwise use the default set above
-elsif (exists $ENV{EPICS_BASE}) {
-    $theDbdFile = $ENV{EPICS_BASE} . "/dbd/softIoc.dbd";
-}
-else {
-    die "No dbd file defined. (\"capr.pl -h\" gives help)\n";
-}
+die "File $opt_d not found. (\"capr.pl -h\" gives help)\n"
+    unless -f $opt_d;
 
-parseDbd($theDbdFile);
-print "Using $theDbdFile\n\n";
+parseDbd($opt_d);
+print "Using $opt_d\n\n";
 
 # Print a list of record types
-if($opt_r) {
-    print ("Record types defined in $theDbdFile\n");
+if ($opt_r) {
+    print ("Record types found:\n");
     printList(0);
     exit;
 }
 
 # Print the fields defined for given record
-if($opt_f) {
+if ($opt_f) {
     printRecordList($opt_f);
     exit;
 }
 
-# Do the business
-# Allow commas between arguments as in vxWorks dbpr
-HELP_MESSAGE() unless defined $ARGV[0];
-$ARGV[0] =~ s/,/ /;                     # Get rid of pesky comma if it's there
-if($ARGV[0] =~ m/\s+\d/) {              # If we replace comma with a space,
-    ($ARGV[0], $ARGV[1]) = split(/ /, $ARGV[0]); #split it
+HELP_MESSAGE() unless @ARGV;
+
+$_ = shift;
+if (@ARGV) {
+    # Drop any ".FIELD" part
+    s/\. \w+ $//x;
+    printRecord($_, @ARGV);
+} else {
+    if (m/^ \s* ([]+:;<>0-9A-Za-z[-]+) (?:\. \w+)? \s* , \s* (\d+) \s* $/x) {
+        # Recognizes ",n" as an interest leve, drops any ".FIELD" part
+        printRecord($1, $2);
+    } else {
+        # Drop any ".FIELD" part
+        s/\. \w+ $//x;
+        printRecord($_, 0);
+    }
 }
-$ARGV[0] =~ s/\s+//;                    # Remove any spaces
-$ARGV[0] =~ s/\..*//;                   # Get rid of field name if it's there
-if ( defined $ARGV[1] ) {
-    $ARGV[1] =~ s/\D//g;                # Make sure we only use digits
-    $ARGV[1] = $ARGV[1] || 0;           # blank => interest level set to 0
-}
-else {
-    $ARGV[1] = 0;                       # interest defaults to 0
-}
-printRecord($ARGV[0], $ARGV[1]);        # Do the do
 
 ########## End of main ###########
 
 
 
 # parseDbd
-# takes given dbd file and parses it to produce a hash table of record types
-# giving their fields, and for each field its interest level and data type
-# usage: void parseDbd("fileName");
-# Output is in the hash %record. This is a hash of (references to) another.
-# hash containing the fields of this record, as keys. The value keyed by
-# the field names are (references to) arrays. Each of these arrays contains
-# the interest level, data type and base of the field
+# Takes given dbd file and parses it to produce a hash table of record types
+# giving their fields, and for each field its interest level and data type.
+# usage: parseDbd("fileName");
+# Output goes to the global %record, a hash of references to other hashes
+# containing the fields of each record type. Those hash values (keyed by
+# field name) are references to arrays containing the interest level, data
+# type and number base of the field.
 sub parseDbd {
-    my $dbdFile = $_[0];
-    my @dbd;
-    my $length;
+    my $dbdFile = shift;
+
+    open(DBD, "< $dbdFile") or die "Can't open file $dbdFile: $!\n";
+    my @dbd = <DBD>;
+    close(DBD) or die "Can't close $dbdFile: $!\n";
+
+    my $i = 1;
     my $level = 0;
-    my $i = 0;
     my $isArecord = 0;
-    my $isAfield;
+    my $isAfield = 0;
     my $thisRecord;
     my $thisField;
     my $thisType;
-    my %field = ();
-    my @params = ();
+    my $field = {};
     my $interest = 0;
-    my $thisBase = "DECIMAL";
-    my $item;
-    my $newDevice;
+    my $thisBase = 'DECIMAL';
 
-    open(DBD, "< $dbdFile") || die "Can't open dbd file $dbdFile --";
-    @dbd = <DBD>;
-    $length = @dbd;
-    close(DBD) || die "Can't close $dbdFile --";
-
-    while ($i < $length) {
-        $_ = $dbd[$i];
+    while (@dbd) {
+        $_ = shift @dbd;
         chomp;
-        print("line $i - level $level\n") if ($DEBUG);
-            #$line = $dbd[$i] || die "Unexpected end of file: $dbdFile, line $.";
-        if( m/recordtype\(/ ) {
-            ($level == 0) || die "dbd file format error in or before line $i --";
-            m/\((.*)\)/;                    #get record type
-            #@records = (@records, $1);
+        if ( m/recordtype \s* \( \s* (\w+) \)/x ) {
+            die "File format error at line $i of file\n    $opt_d\n"
+                unless $level == 0;
             $isArecord = 1;
             $thisRecord = $1;
         }
-        if( m/field\(/ ) {
-            ($level == 1 && $isArecord) || die "dbd file format error in or before line $i --";
-            m/\((.*),/;                        # get field name
+        elsif ( m/field \s* \( \s* (\w+) \s* , \s* (\w+) \s* \)/x ) {
+            die "File format error at line $i of file\n    $opt_d\n"
+                unless $level == 1 && $isArecord;
             $thisField = $1;
-            m/,(.*)\)/;                        # get field type
-            $thisType = $1;
+            $thisType = $2;
             $isAfield = 1;
-            #print("$1 , line $i ");
         }
-        if( m/interest\(/ ) {
-            ($level == 2 && $isAfield) || die "dbd file format error in or before line $i --";
-            m/\((.*)\)/ ;                    # get interest level, default = 0
+        elsif ( m/interest \s* \( \s* (\w+) \s* \)/x ) {
+            die "File format error at line $i of file\n    $opt_d\n"
+                unless $level == 2 && $isAfield;
             $interest = $1;
         }
-        if( m/base\(/ ) {
-            ($level == 2 && $isAfield) || die "dbd file format error in or before line $i --";
-            m/\((.*)\)/ ;                    # get base, default = DECIMAL
+        elsif ( m/base \s* \( \s* (\w+) \s* \)/x ) {
+            die "File format error at line $i of file\n    $opt_d\n"
+                unless $level == 2 && $isAfield;
             $thisBase = $1;
         }
-        if( m/\{/ ) { $level++ };
-        if( m/\}/ ) {
-            if( $level == 2 && $isAfield) {
+        elsif ( m/device \s* \( (\w+) \s* ,/x ) {
+            die "File format error at line $i of file\n    $opt_d\n"
+                unless $level == 0;
+            $device{$1}++;
+        }
+        if ( m/\{/ ) {
+            $level++;
+        }
+        if ( m/\}/ ) {
+            if ($level == 2 && $isAfield) {
+                my $params = [];
+                $params->[$iIdx] = $interest;
+                $params->[$tIdx] = $thisType;
+                $params->[$bIdx] = $thisBase;
+                $field->{$thisField} = $params;
                 $isAfield = 0;
-                $params[$iIdx] = $interest;
-                $params[$tIdx] = $thisType;
-                $params[$bIdx] = $thisBase;
-                $field{$thisField} = [@params];
-                #print("interest $interest\n");
-                $interest = 0;                    # set up default for next time
-                $thisBase = "DECIMAL";            # set up default for next time
+                $interest = 0;                      # reset default
+                $thisBase = 'DECIMAL';              # reset default
             }
-            if( $level == 1 && $isArecord) {
+            elsif ($level == 1 && $isArecord) {
                 $isArecord = 0;
-                $record{$thisRecord} = { %field };
-                #print("record type $thisRecord ");
-                #foreach $key (keys(%field)) {
-                #    print("Field $key - interest $field{$key}\n");
-                #}
-                %field = ();                    # set up for next time
+                $record{$thisRecord} = $field;
+                $field = {};                        # start another hash
             }
             $level--;
         }
-        # Parse for record types with device support
-        if( m/device\(/ ) {
-            m/\((.*?),/;
-            if(!exists($device{$1})) {
-                # Use a hash to make a list of record types with device support
-                $device{$1} = 1;
-            }
-        }
         $i++;
     }
 }
 
 
-# Given a record name attempts to find the record and its type.
-# Usage: getRecType(recordName) - returns ($error, $recordType)
+# Given a record name, attempts to find the record and its type.
+# Usage: $recordType = getRecType("recordName");
 sub getRecType {
-    my $name = $_[0] . ".RTYP";
-    my $type;
-    my $data;
+    my $arg = shift;
+    my $name = "$arg.RTYP";
 
-    my $fields_read = caget( $name );
+    my $fields_read = caget($name);
 
-    if ( $fields_read != 1 ) { die "Could not determine \"$_[0]\" record type.\n"; }
-    $data = $callback_data{ $name };
-    chomp $data;
-    $data =~ s/\s+//;
-    #print("$name is a \"$data\"type\n");
-    return($data);
+    die "Could not determine record type of $arg\n"
+        unless $fields_read == 1;
+
+    return $callback_data{$name};
 }
 
-# Given the record type and the field returns the interest level, data type
-# and base for the field
-# Usage: ($dataType, $interest, $base) getFieldParams( $recType, $field)
+# Given the record type and field, returns the interest level, data type
+# and number base for the field
+# Usage: ($dataType, $interest, $base) = getFieldParams($recType, $field);
 sub getFieldParams {
-    my $recType = $_[0];
-    my $field   = $_[1];
-    my ($fType, $fInterest, $fBase);
+    my ($recType, $field) = @_;
 
-    exists($fieldType{$record{$recType}{$field}[$tIdx]})  ||
+    my $params = $record{$recType}{$field} or
+        die "Can't find params for $recType.$field";
+    exists($fieldType{$params->[$tIdx]})  ||
         die "Field data type $field for $recType not found in dbd file --";
-    exists($record{$recType}{$field}[$iIdx])  ||
+    exists($params->[$iIdx])  ||
         die "Interest level for $field in $recType not found in dbd file --";
 
-    $fType     = $fieldType{$record{$recType}{$field}[$tIdx]};
-    $fInterest = $record{$recType}{$field}[$iIdx];
-    $fBase       = $record{$recType}{$field}[$bIdx];
-    return($fType, $fInterest, $fBase);
+    my $fType     = $fieldType{$params->[$tIdx]};
+    my $fInterest = $params->[$iIdx];
+    my $fBase     = $params->[$bIdx];
+    return ($fType, $fInterest, $fBase);
 }
 
 # Prints field name and data for given field. Formats output so
 # that fields align in to 4 columns. Tries to imitate dbpf format
 # Usage: printField( $fieldName, $data, $dataType, $base, $firstColumnPosn)
 sub printField {
-    my $fieldName = $_[0];
-    my $fieldData = $_[1];
-    my $dataType  = $_[2];
-    my $base      = $_[3];    # base to display numeric data in
-    my $col       = $_[4];    # first column to print in
+    my ($fieldName, $fieldData, $dataType, $base, $col) = @_;
 
     my $screenWidth  = 80;
-    my ($outStr, $len, $wide, $pad, $field);
+    my ($outStr, $wide);
 
-    $field = $fieldName . ":";
+    my $field = "$fieldName:";
 
-    if( $dataType eq "DBF_STRING" ) {
-        $outStr = sprintf("%-5s %s", $field, $fieldData);
-    } elsif ( $base eq "HEX" ) {
-         my $val = ( $dataType eq "DBF_CHAR" ) ? ord($fieldData) : $fieldData;
-         $outStr = sprintf("%-5s %x", $field, $val);
-    } elsif ( $dataType eq "DBF_DOUBLE" || $dataType eq "DBF_FLOAT" ) {
-        $outStr = sprintf("%-5s %.8f", $field, $fieldData);
-    } elsif ( $dataType eq "DBF_CHAR" ) {
-        $outStr = sprintf("%-5s %d", $field, ord($fieldData));
+    if ( $dataType eq 'DBF_STRING' ) {
+        $outStr = sprintf('%-5s %s', $field, $fieldData);
+    } elsif ( $base eq 'HEX' ) {
+         my $val = ( $dataType eq 'DBF_CHAR' ) ? ord($fieldData) : $fieldData;
+         $outStr = sprintf('%-5s 0x%x', $field, $val);
+    } elsif ( $dataType eq 'DBF_DOUBLE' || $dataType eq 'DBF_FLOAT' ) {
+        $outStr = sprintf('%-5s %.8f', $field, $fieldData);
+    } elsif ( $dataType eq 'DBF_CHAR' ) {
+        $outStr = sprintf('%-5s %d', $field, ord($fieldData));
     }else {
         # DBF_LONG, DBF_SHORT, DBF_UCHAR, DBF_ULONG, DBF_USHORT
-        $outStr = sprintf("%-5s %d", $field, $fieldData);
+        $outStr = sprintf('%-5s %d', $field, $fieldData);
     }
 
-    $len = length($outStr);
-    if($len <= 20) { $wide = 20; }
-    elsif( $len <= 40 ) { $wide = 40; }
-    elsif( $len <= 60 ) { $wide = 60; }
+    my $len = length($outStr);
+    if ($len <= 20) { $wide = 20; }
+    elsif ( $len <= 40 ) { $wide = 40; }
+    elsif ( $len <= 60 ) { $wide = 60; }
     else { $wide = 80;}
 
-    $pad = $wide - $len;
+    my $pad = $wide - $len;
 
-    if( $col + $wide > $screenWidth ) {
+    $col += $wide;
+    if ($col > $screenWidth ) {
         print("\n");
-        $col = 0;
+        $col = $wide;
     }
 
-    print $outStr . sprintf("%*s",$pad," ");
-    $col = $col + $wide;
+    print $outStr, ' ' x $pad;
 
-    return($col);
+    return $col;
 }
 
 #  Query for a list of fields simultaneously.
@@ -302,19 +269,18 @@ sub printField {
 #  Usage: $fields_read = caget( @pvlist )
 sub caget {
     my @chans = map { CA->new($_); } @_;
-    my $wait = 1;
 
     #clear results;
     %callback_data = ();
     %timed_out = ();
 
-    eval { CA->pend_io($wait); };
+    eval { CA->pend_io($opt_w); };
     if ($@) {
         if ($@ =~ m/^ECA_TIMEOUT/) {
-            my $err = (@chans > 1) ? "some PV(s)" : "\"" . $chans[0]->name . "\"";
+            my $err = (@chans > 1) ? 'some PV(s)' : '"' . $chans[0]->name . '"';
             print "Channel connect timed out: $err not found.\n";
             foreach my $chan (@chans) {
-                $timed_out{$chan->name} = ( $chan->is_connected ) ? 0 : 1;
+                $timed_out{$chan->name} = $chan->is_connected;
             }
             @chans = grep { $_->is_connected } @chans;
         } else {
@@ -325,7 +291,6 @@ sub caget {
     map {
         my $type;
         $type = $_->field_type;
-        #$callback_data{$_->name} =  undef;
         $_->get_callback(\&caget_callback, $type);
     } @chans;
 
@@ -344,31 +309,28 @@ sub caget_callback {
 
 # Given record name and interest level prints data from record fields
 # that are at or below the interest level specified.
-# Usage: printRecord( $recordName, $interestLevel)
+# Usage: printRecord($recordName, $interestLevel)
 sub printRecord {
-    my $name = $_[0];
-    my $interest = $_[1];
-    my ($error, $recType, $field, $fType, $fInterest, $data);
-    my ($fToGet, $col, $base);
-    #print("checking record $name, interest $interest\n");
+    my ($name, $interest) = @_;
 
-    $recType = getRecType($name);
-    print("$name is record type $recType\n");
-    exists($record{$recType})  || die "Record type $recType not found in dbd file --";
+    my $recType = getRecType($name);
+    print("Record $name  type $recType\n");
+    die "Record type $recType not found\n"
+        unless exists $record{$recType};
 
     #capture list of fields
     my @readlist = ();  #fields to read via CA
     my @fields_pr = (); #fields for print-out
     my @ftypes = ();    #types, from parser
     my @bases = ();     #bases, from parser
-    foreach $field (sort keys %{$record{$recType}}) {
+    foreach my $field (sort keys %{$record{$recType}}) {
         # Skip DTYP field if this rec type doesn't have device support defined
-        if($field eq "DTYP" && !(exists($device{$recType}))) { next; }
+        if ($field eq 'DTYP' && !(exists($device{$recType}))) { next; }
 
-        ($fType, $fInterest, $base) = getFieldParams($recType, $field);
-        unless( $fType eq "DBF_NOACCESS" ) {
-            if( $interest >= $fInterest ) {
-                $fToGet = $name . "." . $field;
+        my ($fType, $fInterest, $base) = getFieldParams($recType, $field);
+        unless( $fType eq 'DBF_NOACCESS' ) {
+            if ($interest >= $fInterest ) {
+                my $fToGet = "$name.$field";
                 push @fields_pr, $field;
                 push @readlist, $fToGet;
                 push @ftypes, $fType;
@@ -379,22 +341,23 @@ sub printRecord {
     my $fields_read = caget( @readlist );
 
     # print while iterating over lists gathered
-    $col = 0;
+    my $col = 0;
     for (my $i=0; $i < scalar @readlist; $i++) {
-        $field  = $fields_pr[$i];
-        $fToGet = $readlist[$i];
-        if ( $timed_out{$fToGet} ) {
+        my $field  = $fields_pr[$i];
+        my $fToGet = $readlist[$i];
+        my ($fType, $data, $base);
+        if ($timed_out{$fToGet}) {
             $fType = $fieldType{DBF_STRING};
-            $data  = "<timeout>";
+            $data  = '<timeout>';
         }
         else {
             $fType  = $ftypes[$i];
+            $base   = $bases[$i];
             $data   = $callback_data{$fToGet};
-            chomp $data;
         }
         $col = printField($field, $data, $fType, $base, $col);
     }
-    print("\n");  # Final line feed
+    print("\n");  # Final newline
 }
 
 # Prints list of record types found in dbd file. If level > 0
@@ -402,13 +365,12 @@ sub printRecord {
 # also printed.
 # Diagnostic routine, usage: void printList(level);
 sub printList {
-    my $level = $_[0];
-    my ($rkey, $fkey);
+    my $level = shift;
 
-    foreach $rkey (sort keys(%record)) {
-        print("$rkey\n");
-        if($level > 0) {
-            foreach $fkey (keys %{$record{$rkey}}) {
+    foreach my $rkey (sort keys(%record)) {
+        print("  $rkey\n");
+        if ($level > 0) {
+            foreach my $fkey (keys %{$record{$rkey}}) {
                 print("\tField $fkey - interest $record{$rkey}{$fkey}[$iIdx] ");
                 print("- type $record{$rkey}{$fkey}[$tIdx] ");
                 print("- base $record{$rkey}{$fkey}[$bIdx]\n");
@@ -420,42 +382,42 @@ sub printList {
 # Prints list of fields with interest levels for given record type
 # Diagnostic routine, usage: void printRecordList("recordType");
 sub printRecordList {
-    my ($rkey, $fkey);
-    my $type = $_[0];
+    my $type = shift;
 
-    if( exists($record{$type}) ) {
+    if (exists($record{$type}) ) {
         print("Record type - $type\n");
-        foreach $fkey (sort keys %{$record{$type}}) {
-            printf("%-4s", $fkey);
+        foreach my $fkey (sort keys %{$record{$type}}) {
+            printf('%-4s', $fkey);
             printf("    interest = $record{$type}{$fkey}[$iIdx]");
             printf("    type = %-12s ",$record{$type}{$fkey}[$tIdx]);
             print ("    base = $record{$type}{$fkey}[$bIdx]\n");
         }
     }
     else {
-        print("Record type $type not defined in dbd file $theDbdFile\n");
+        print("Record type $type not defined in dbd file $opt_d\n");
     }
 }
 
 sub HELP_MESSAGE {
     print STDERR "\n",
-"Usage: capr.pl -h\n",
-"       capr.pl [-d dbd_file] -r\n",
-"       capr.pl [-d dbd_file] -f <record_type>\n",
-"       capr.pl [-d dbd_file] <record_name> <interest>\n",
-"Description:\n",
-"   Attempts to perform a \"dbpr\" record print via channel access for record_name at a given\n",
-"   interest level. The default interest level is 0.\n\n",
-"   If used with the f or r options, prints fields/record type lists.\n",
-"\n",
-"Options:\n",
-"   -h: Help: Prints this message\n",
-"   -d Dbd file: specify dbd file used to read record definitions.\n",
-"      The default can be specified with the EPICS_CAPR_DBD_FILE environment\n",
-"      variable. The default file is \$(EPICS_BASE)/dbd/softIoc.dbd\n",
-"   -r Prints the list of record types\n",
-"   -f Prints list of fields, interest level, type and base for the\n",
-"      given record type\n",
-"\n";
+        "Usage: capr.pl -h\n",
+        "       capr.pl [-d file.dbd] [-w seconds] -r\n",
+        "       capr.pl [-d file.dbd] [-w seconds] -f record_type\n",
+        "       capr.pl [-d file.dbd] [-w seconds] record_name [interest]\n",
+        "Description:\n",
+        "   Attempts to perform a \"dbpr\" record print via channel access for \n",
+        "   record_name at an interest level which defaults to level 0.\n\n",
+        "   The -r or -f options cause it to print record type or field lists.\n",
+        "\n",
+        "Options:\n",
+        "   -h Prints this help message.\n",
+        "   -r Lists all record types in the dbd file.\n",
+        "   -f record_type: Lists all fields plus their interest level, data type\n",
+        "      and number base for the given record_type.\n",
+        "   -d file.dbd: The dbd file containing record type definitions.\n",
+        "      This can be set using the EPICS_CAPR_DBD_FILE environment variable.\n",
+        "      Currently ", AbsPath($opt_d), "\n",
+        "   -w seconds: CA connection timeout, currently $opt_w\n",
+        "\n";
     exit 1;
 }