use strict, Sara.

Why are you using $theCgfile when your cycle assigns to $_?

If I get what you need, you should actually write:

use strict ;
use warnings ;

while (<>) {
  print if /\.c$/ ;
}
[download]

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}