#!/usr/bin/env perl

use Net::FTP;
use File::Copy;
use Mail::Sender;
use Net::SMTP;


my $TIFFfolder = "/Volumes/photorepos/Partners/LTBrands/post/DONE_PSDs/";

chdir( $TIFFfolder ) or warn "Cant chdir to $TIFFfolder $!";
my(@TIFFfolder_list) = glob "*.psd";
print "$date $time Removing any Thumbs.db files from $TIFFfolder\n";
if ( -e "Thumbs.db") {
unlink ("Thumbs.db") or warn "thumbs.db is being a pain in the ass: $!\n";
}
my $TIFFapproval = @TIFFfolder_list;

foreach $file (@TIFFfolder_list){
my $file = basename (@TIFFfolder_list, ".psd");
print "$file\n";
}

$mail->send(-to=>"$to", -from=>"$from", -subject=>"$subject", -body=>"$file", -contenttype=>"text/html");
$mail->bye;