#!/usr/bin/perl
$DIR = $ARGV[0];
#my ($txt) = "";
for ($i=1; $i<=40; $i++) {
$txt = "";
$j = $i;
$j = "0" . $j if $j < 10;
open (OUT, ">" . $DIR . "/html/Picture" . $j . ".shtml");
if (! -f $DIR . "/txt/Picture" . $j . ".txt") {
open (TXT, ">" . $DIR . "/txt/Picture" . $j . ".txt");
close TXT;
}
print OUT "" . $DIR . "/Picture" . $j . "\n";
print OUT "\n";
print OUT "\n";
# print OUT "" . $txt . "
\n";
print OUT "![](\"../mediums/Picture")
\n";
print OUT "
Click photo above to see it bigger\n";
close OUT;
}