use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($host);
$ssh->rsync_get({glob => 1, verbose => 1, times => 1},
                "/var/log/mail.log*", "log/mail");