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