Opening a MacOS package

[John Delacour]

I've a feeling I'm doing something silly here, but I can't work out what it is. In the shell I can list the contents of a Mail.app account package, but perl will not recognise the package as a directory. Do I need to use some other syntax or is it simply impossible?


#!/usr/bin/perl
$dir = "$ENV{HOME}/Library/Mail";
opendir DIR, $dir ;
for (readdir DIR) {
/@/ and push @accounts, "$dir/$_\n"
}
$acc = $accounts[0] ;
print $acc ;
### [EMAIL PROTECTED]
opendir ACC, qq~$acc~ or print "$!\n\n" ;
### No such file or directory
print `cd $acc \n ls` ;

$result = <<END
Deleted Messages.mbox
Drafts.mbox
INBOX.mbox
MessageUidsAlreadyDownloaded
END
#

JD