#!/usr/bin/perl -w


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

my $aeropostale = "/Volumes/photorepos/Partners/Aeropostale/post/instock/";
my $psd ="\.psd";

# chdir($aeropostale) or warn "can not get to $aerpostale $!\n";

foreach ($aeropostale) {
find(
{
wanted => \&findfiles,
},
"$aeropostale"
);

sub findfiles
{
	

if

(/$psd/){

print  "$_\n";
}
}
}