#!/usr/bin/perl -w

opendir my $dir, "." or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;

open F, ">:utf8", ".Link" or die "Cannot create file!";
foreach my $f (@files)
  {
    if(($f ne ".") and ($f ne ".."))
      {
        print F "Name=" . $f . "\n";
        print F "Type=I\n";
        print F "Path=/photo/" . $f . "\n";
      }
  }
close F;

print "Done.\n";