use DirHandle;

my $dh = new DirHandle;
$dh->open( 'MainDir' );
foreach ( grep /\.cpp$/, $dh->read ) {
   # do stuff
}
$dh->close;