Little change to get.pl when used on command line

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 8ceaf347242276d52182836e0c8095b95bc26a79..98447cb98af7cbb5b28660a86032bfe2ae564cc0 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -3,10 +3,9 @@ use HADES::TrbNet;
 use Storable qw(lock_store lock_retrieve);
 use feature "switch";
 use Time::HiRes qw( time usleep );
-use CGI::Carp qw(fatalsToBrowser);
 
 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
-
+use if (defined $ENV{'QUERY_STRING'}), CGI::Carp => qw(fatalsToBrowser);
 use if (!defined $ENV{'QUERY_STRING'}), warnings;
 use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage;
 use if (!defined $ENV{'QUERY_STRING'}), Text::TabularDisplay;