#!/usr/local/bin/perl
#
@fdir = <*.c>;
while (<@fdir>)
{
    $file = $_;
    print "\n\nfile = $file ...\n";
    system ("file $file");
    system ("diff $file ../../2013_1202_C/sofa/.");
    print "Done ...\n";
}
#
exit(0)
