uploading directory of pics

find /path/to/pics/ | tail -n +2 | while read f; do name=$(basename $f | perl -pe "s/\.\S+$/.html/"); ./hostr-image-upload-2.sh $f $name; done