use Mac::Files; #along with strict and -wT
my $file="AgentM\'s Rockin\' G4 Cube:Desktop Folder:FileSupafly";
my $cat=FSpGetCatInfo($file); #throw in some dies along here
my $fileinfo=$cat->ioFlFndrInfo();
print $filecat->ioNamePtr(), ' ',$fileinfo->fdCreator(); #prints filename and its 4 letter creator type