#!/usr/bin/env perl

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


my $directory ="/Users/flieckb/Desktop/files/";
my $to ='brianflieck\@gmail.com';
my $from='bflieck\@industrialcolor.com';
my $subject =  "test";

chdir( $directory ) or warn "Cant chdir to $directory $!";
my(@push_list) = glob "*";
my $filecount = @push_list;


my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp-relay.gmail.com',
                                                 -login=>'youremailaddresss,
                                                 -pass=>'yourpassword',
#                                                  -layer=> 'ssl',
                                                 -port=> '25',
                                                 -debug=> 1,);



$mail->send(-to=>"$to", -from=>"$from", -subject=>"$subject", -body=>"@push_list\n total files pushed: $filecount");
$mail->bye;