diff --git a/configure-plugins b/configure-plugins
index ccb0db6abc..45f7a8721b 100755
--- a/configure-plugins
+++ b/configure-plugins
@@ -48,7 +48,7 @@ generate_configh () {
     if [ ! "$oldlib" = "$lib" ]; then
       [ -n "$oldlib" ] && echo "     0"
       oldlib=$lib
-      uclib=$(echo $lib | tr '[a-z]' '[a-Z]')
+      uclib=$(echo $lib | tr '[a-z]' '[A-Z]')
       echo
       echo "#define R_${uclib}_STATIC_PLUGINS \\"
       plugins="${plugins} __${uclib}"
diff --git a/swig/lua/test-r_bin.lua b/swig/lua/test-r_bin.lua
index be9b4fae0a..2aa21ef77e 100644
--- a/swig/lua/test-r_bin.lua
+++ b/swig/lua/test-r_bin.lua
@@ -1,7 +1,9 @@
 -- RBin --
 require "r_bin"
+
+file = arg[1] or "/bin/ls"
 b = r_bin.RBin ()
-b:load ("/bin/ls", "")
+b:load (file, "")
 baddr = b:get_baddr ()
 s = b:get_sections ()
 nsects = s:size() - 1
diff --git a/swig/test/perl/bin.pl b/swig/test/perl/bin.pl
index 4a3f535cc3..2c42e3f7fb 100644
--- a/swig/test/perl/bin.pl
+++ b/swig/test/perl/bin.pl
@@ -1,11 +1,14 @@
 use r2::r_bin;
 
+$file = ($ARGV[0] ne "")?$ARGV[0]:"/bin/ls";
 $b = r_bin::RBin->new ();
-$b->load ("/bin/ls", undef);
+$b->load ($file, undef);
 $baddr = $b->get_baddr ();
-printf ("baddr=0x%08x\n", $baddr);
+$sects = $b->get_sections ();
+
 print "-> Sections\n";
-for $i (b->get_sections ()) {
+for ($i = 0; $i < $sects->size (); $i++) {
+	$s = $sects->get ($i);
 	printf ("offset=0x%08x va=0x%08x size=%05i %s\n",
-			$i{"offset"}, baddr+$i{"rva"}, $i{"size"}, $i{"name"});
+			$s->{offset}, $baddr + $s->{rva}, $s->{size}, $s->{name});
 }