scan from command-line

diff --git a/scripts/scan.pl b/scripts/scan.pl
new file mode 100755 (executable)
index 0000000..3bf7dd2
--- /dev/null
+++ b/scripts/scan.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use lib 'lib';
+
+foreach my $reader ( '3M810', 'CPRM02' ) {
+       my $module = "RFID::Serial::$reader";
+       eval "use $module";
+       die $@ if $@;
+       my $rfid = $module->new( device => '/dev/ttyUSB0' );
+       $rfid->scan;
+}
+