I'm use Filesys::SmbClient for copy files without mounting...
Also possible use IP as machine name...

use Filesys::SmbClient;
use POSIX;
  my $smb = new Filesys::SmbClient(username  => "alian",
               password  => "speed",
               workgroup => "alian",
               debug     => 10);
         # Read a file
         my $fd = smb->open("smb://jupiter/doc/general.css", '0666');
         while (defined(my $l= $smb->read($fd,50))) {print $l; }
         $smb->close(fd);

         # ...
[download]

---

Zahatskii Alexandr