my $workbook;

my $skip_counter=0;

my %opts = ('c|C|carriers=s', \$Carrier_Option, 't|T|TP=i', \$Nr_of_TP, 'h|H|Help', \$printHelp, 'b|B|BS|bs|Bs', \$is_BS, 'v|V|Version', \$version, 'l|L|legend=s', \$my_legend, 'a|A|altitude=i', \$BS_RadioHeight, 'd|D=s', \$actdir);

GetOptions(%opts);
# dd \%opts;

sub Change_Directory()
{
	if($actdir eq "")
	{
		$actdir=$CWD;
	}
	else
	{
		chdir("$actdir");
	}
}
while(1)
{

sub UE_Log()
{
	$workbook   = Excel::Writer::XLSX->new("$modified_filename2.xlsx");
	my $worksheet  = $workbook->add_worksheet('Summary_Report');
	my $worksheet2 = $workbook->add_worksheet('KPIs_Overall');
	my $worksheet3 = $workbook->add_worksheet('KPIs_Per_Carrier');
	my $worksheet4 = $workbook->add_worksheet('KPIs_Overall_CDF');
	my $worksheet5 = $workbook->add_worksheet('KPIs_Per_Carrier_CDF');
	my $worksheet6 = $workbook->add_worksheet('BRSRP_CDF');
	my $worksheet7 = $workbook->add_worksheet('Rank_Overall');
	my $worksheet8 = $workbook->add_worksheet('MCS_Overall');
	my $worksheet9 = $workbook->add_worksheet('BRSRP_CDF_TP1');
	#BW
	my $worksheet11 = $workbook->add_worksheet('SINR_Per_Rank');
	my $worksheet10 = $workbook->add_worksheet('Distance_Plots');
.
.
.
	if ($filename=glob('*L2UE_Beam_hist.csv'))
	{
		&Beam_Hystersis($filename);
	}

	sub Beam_Hystersis
	{
		my @timestamp;
		my @Beam_Probability;
		my $All_Beam_Sum=0;
		my @beamIndex;
		my $previous_beamprobability;
.
.
		open ($fh, "<", $filename) or die("\n---ERROR: File $filename could not be found---\n\n");

	  	$worksheet->write(0,0,"BeamIndex#",$format);
	  	$worksheet->write(0,1,"Beam_Probability_TP0",$format);
.
.
.}
}
	$workbook->close();

	print "To process another log file, enter the path to the log file, or enter 'x' to exit: ";
	print color 'reset';

	chomp(my $new_options = <>);	
	
	GetOptionsFromString($new_options, %opts);
	dd \%opts;

	&Change_Directory($actdir);

	if($new_options eq "x")
	{
		last;
	}
}