#!/usr/bin/perl -w
use strict;
use v5.10;

use POE;
use File::Copy;
use MIME::Lite;
use Time::Piece;
use Data::Dumper;
use File::Basename;
use Net::SFTP::Foreign;
#use Win32::Process::Info;
use POE::Component::DirWatch::Object;
use IPC::System::Simple qw(system);
use sigtrap qw(die untrapped normal-signals error-signals);