#!/usr/bin/perl
-
+#
# perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
-use strict;
-use warnings;
+use lib '../lib';
use ZOOM::IRSpy;
use ZOOM::IRSpy::Utils qw(render_record);
+use strict;
+use warnings;
+
my($dbname) = @ARGV;
die "$0 no database name specified" if !defined $dbname;