From 7ca5dff703e2e24d193dd1622a4598b46fc7587c Mon Sep 17 00:00:00 2001
From: "Erik L. Vonderscheer" <evonder@gmail.com>
Date: Mon, 27 Apr 2009 20:20:52 +0000
Subject: [PATCH] test.pl

---
 test.pl |   26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 test.pl

diff --git a/test.pl b/test.pl
new file mode 100644
index 0000000..e58b765
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,26 @@
+$req = Win32::GetCwd();
+opendir(DIR ,"$req") or die "cannot open $req";
+$outfile = "list.txt";
+open OUT, ">$outfile" or die "Cannot open $outfile";
+ 
+while (defined($doc = readdir(DIR)))
+{        
+  if($doc eq "\." || $doc eq "\..")
+ {
+                #do nothing;
+ }
+  else
+  {
+    if ($doc =~/\.JPG/)
+    {
+      print OUT "$doc,$ARGV[0],$ARGV[1]\n";
+     
+    }
+    else
+   {    
+          
+    #do nothing;
+ 
+   }
+ }
+} 
\ No newline at end of file
-- 
1.7.9.5