I've written the following to sweep a folder and set creator/type for pdf
files (coming off a Linux server). This works from MacPerl, but I really need
to run it from OSX Perl. How do I get Perl to use MacPerl.pm, which @INC can't
locate? ( #!/usr/bin/perl use MacPerl; ... ).
#!perl
use strict;
use warnings;
my ($folder,$x,$file,$path);
my @files;
$folder = ":pdf:";
opendir(PDF, "$folder") || die "$!";
@files = readdir(PDF);
close(PDF);
for $x (0..$#files) {
$file = $files[$x];
$path = $folder . $file;
if (-f $path) {
MacPerl::SetFileInfo('CARO', 'PDF', $path);
} # END FOR
