#!/usr/local/bin/perl -w

@dir = `ls -1 ./`;
for (@dir) {chomp;
  if (/\.jpg/) {my $title = $_;$title =~ s/_/ /g;
#    my $old = $_;s/(^.)/\u$1/;s/_(.)/_\u$1/;
#  if (/\.tst/) {my $old = $_;s/(^.)/\u$1/;s/_(.)/_\u$1/;
#print $old, $_;
print qq!wilczur/$_|/http://www.birdillustrators.com/janwilczur.htm|$title, ©Jan Wilczur|W\n!;
# rename("Test-it_Now.tst", "test-it_now.tst");
#$old =  "Test-it_Now.tst";
#$new = "test-it_now.tst";
#print "$old\n$_\n";
#rename($old,$_);
  }
}