--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/qq Tue Dec 09 13:35:16 2008 +0100
@@ -0,0 +1,14 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Quancom;
+use Data::Dumper;
+
+
+MAIN: {
+ my $q = new Quancom $ARGV[0];
+ my $r = $q->cmd("WB010000");
+ die Dumper $r;
+}
+
--- a/tt Tue Dec 09 13:31:33 2008 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,14 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-use warnings;
-use Quancom;
-use Data::Dumper;
-
-
-MAIN: {
- my $q = new Quancom $ARGV[0];
- my $r = $q->cmd("WB010000");
- die Dumper $r;
-}
-