#!/usr/local/bin/perl -w

use strict
use Net::SFTP;

my $host = "somehost";
my $password = "somepasswd";
my $user = "someuser";

my $sftp = Net::SFTP->new($host,"user" => $user,"password" => $password);
$sftp->get("/var/log/httpd/access_log"); 

##</code><code>##

#!/usr/local/bin/perl -w

use strict
use Net::SFTP;

my $host = "somehost";
my $password = "somepasswd";
my $user = "someuser";

my $sftp = Net::SFTP->new($host,"user" => $user,"password" => $password);
print $sftp->get("/var/log/httpd/access_log"); <<<---|||