I use a Mac and Net::FTP without problems, however I only deal in text files.

I had a quick look at CPAN and found Mac::Macbinary:

use Mac::Macbinary;

  $mb = Mac::Macbinary->new(\*FH);    # filehandle
  $mb = Mac::Macbinary->new($fh);    # IO::* instance
  $mb = Mac::Macbinary->new("/path/to/file");

  # do validation
  eval {
      $mb = Mac::Macbinary->new("/path/to/file", { validate => 1 });
  };

  $header = $mb->header;        # Mac::Macbinary::Header instance
  $name = $header->name;
[download]

otherwise go to CPAN and type in Mac, you may find something else...