sub get_files {
	my $files = shift;
	my @file_list;
	opendir(DIR, $files) or die "Can't open directory, $!\n";
	@file_list = readdir(DIR);
	closedir(DIR);
	# Removing directory references '.' and '..' from the listing
	my $rmdir = shift (@file_list);
	my $rmdir2 = shift (@file_list);
	return @file_list;
}