sub readFiles {
	my $ipath = $_[0];
	my $afile;
	opendir(sDir, $ipath) || die "unable to open sDir: $!";
	my @files = grep { /\.mat$/ } readdir(sDir);

	foreach (@files){
		print FILE "$ipath\\$_"."\n";
	}
	closedir(sDir);
}