#!/usr/bin/perl -w

use strict;
use diagnostics;
use autodie;
use Net::SFTP::Foreign;
use File::Copy;
use File::stat;

-->> omitted code to make things more readable 

$sftp = Net::SFTP::Foreign->new($host, %args);
$sftp->setcwd($remote_dir) || die log_msg($sftp->error."Exiting...\n");

opendir($DH, $local_dir) or die $!;
    while (defined(my $file = readdir($DH)) {
        my $mtime = stat("$local_dir/$file")->mtime;
        my $age   =(time - $mtime);
        chomp($age);
        next unless ($age > 2);
        next unless (-f "$local_dir/$file");
        next unless ($file =~ m/\.xml$/);
        
        # sftp put section
        if ($sftp->put("$local_dir/$file")) {
          move("$local_dir/$file", "$local_dir_mv") or die log_msg("The move operation failed: $!");
        }  
        else {
           die log_msg($sftp->error);
        }
    }   
closedir($DH);