#!/usr/bin/perl -w

use Net::SFTP;
use strict;

my $host = "host";
my $user = "user";
my $pass = "pass";
my $port = 87;
my %args = (ssh_args => []);
$args{user} = $user;
$args{password} = $pass;
$args{debug} = 1;


push @{ $args{ssh_args} }, port=>$port;
my $sftp = Net::SFTP->new($host,%args,);

my $files=$sftp->ls('CDRs/')
foreach $f (@$myfiles)
{
$sftp->get('$f'[,'/tmp/$f']
}