opendir my $dir, "." or die "Cannot open directory: $!";
my @files = readdir $dir;
my @filesHTML;

foreach (@files){
	if ($_ =~ /html/) {
	 push @filesHTML, $_;
	}
}