Select Code to Download

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

...

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

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

...

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