http://paperlined.org/pictures/src/process.pl

#!/usr/bin/perl

BEGIN{$^W=1}
use strict;

my $camera_dir = '/home/interiot/public_html/pictures/camera';
my $web_dir    = '/home/interiot/public_html/pictures/web';

chdir $camera_dir       or die $!;
opendir DIR, "."        or die $!;