title: How do I copy data from a remote system without using ssh or FTP Perl modules?
body: <p>I have to write a Perl script to automatically copy data from remote server to my local system. The directory structure on remote systems is:</p>
  
  <pre><code>../log/D1/&lt;date&gt;.tar.gz
  ../log/D2/&lt;date&gt;.gz
  ../log/D3/&lt;date&gt;.tar.gz
  ../log/D4/&lt;date&gt;
  </code></pre>
  
  <p>and same on other server. I want to copy the data on local system in below format.</p>
  
  <pre><code>../log/S1/D1/&lt;date&gt;.tar.gz
  ../log/S1/D2/&lt;date&gt;.gz
  ../log/S1/D3/&lt;date&gt;.tar.gz
  ../log/S1/D4/&lt;date&gt;
  </code></pre>
  
  <p>and same for other servers i.e. S2, S3, etc</p>
  
  <p>Also, no ssh supported Perl modules are available on remote server as well on local server and I dont have permission to install any Perl modules. The only good thing is that the connectivity is through password-less ssh keys.</p>
  
  <p>Can anyone please suggest me any Perl code to get this done?</p>