#!/usr/bin/perl # vim:sts=4:sw=4 # use Foundation; foreach ( @ARGV ) { #print STDERR "Reading $_\n"; $oPropList = NSDictionary->dictionaryWithContentsOfFile_( $_ ); print $oPropList->description()->UTF8String() . "\n"; #&storeRule( $oRule ); }