#!/usr/local/bin/perl
#
@fdir = <*.c>;
while (<@fdir>)
{
    $file = $_;
    system ("/home/bells/sofa_new/2015_0209_C/sofa/update4 $file");
    print "Updating $file ...\n";
}
#
exit(0)
