#!/usr/bin/env perl

use File::Find;
use File::Copy;
use Net::SMTP;
use File::Basename;
use File::Slurp;
use POSIX qw(strftime);
my $date = strftime("%m-%d-%y",localtime);
my $time = strftime("%I:%M:%S",localtime);

my $findme = '\photorepos\Perl\Mother\WorkLoad\';
chdir($findme) or warn "$!";