foreach $file (<*.*>)
		{
		if($file =~ /\.c/) 
		{
		
		$filename = $file; 	
		print m"$filename\n";
			
		}
	}