use warnings;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Const 'Microsoft Word'; 
use Cwd;
use File::Find;

//MS Word Opening
my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{'Visible'} = 1;
my $document = $word->Documents->Add;
my $selection = $word->Selection;

my @scriptfiles;
my $text;
my @array;
our $file;

@scriptfiles=glob('*.c');
foreach $file (glob('*.c'))
{ 
    open(my $fh, $file) or die("Unable to open '$file': $!");  
    while (my $line = <$fh>)
    {
        if ($line =~ /Function:\s*(.+)/ )
        {
			$selection -> TypeText($line); 
        }
    }
	
	}