#!/usr/bin/env perl

use strict;
use warnings;
use File::Find;
use File::Copy;
use Mail::Sender;
use Net::SMTP;
use Email::Send::SMTP::Gmail;
my $user = '####@####.#';
my $pass = '########';

my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.com',
                                                 -login=>$user,
                                                 -pass=>$pass,
                                                 -port=> '25',
                                                 -verbose=>1,
                                                 -debug=> 1,);

my $subject = "Folder Counts";
my $to = '####@####.com';
$mail->send(-to=>"$to",-from=>"$to", -subject=>"$subject");
$mail->bye;