sub new 
{
	my $class = shift;
   	my $self  = {};
    $self->{filename}       = undef;
    $self->{path}   	    = undef;
    $self->{logRespository} = undef;
 	$self->{mcg}			= undef;
 	$self->{reader}			= undef;
 	$self->{timeStamp}		= undef;
 
    bless ($self, $class);
    return $self;
}

...

sub reader 
{
	my $self=shift;
    if (@_) { $self->{reader} = shift }
    return $self->{reader};
}

...

sub run
{	
	my $self=shift;

	my $count = getIMSIcount();
	
	#sleep(1000);

	#workaround: disable BTS AXC and BTS WAM network interface
	logprint("Disabling BTS AXC & WAM interface ...\n");
	system("C:\\BFAT\\bfat_tools\\DevCon\\devcon disable PCI\\VEN_11AB");
  	system("C:\\BFAT\\bfat_tools\\DevCon\\devcon disable PCI\\VEN_13F0");
	sleep(8);
  		
	StartMcgTestcase('mcg' => $self->{mcg}, 'reader' => $self->{reader}, 'tcName' => $self->{filename}, 'timestamp' => $self->{timeStamp});
	
	# wait 30 seconds for each IMSI of the testcase
	
	for(my $i = 0; $i <= $count; $i++)
	{
		sleep(30);	
	}

	#workaround: enable BTS AXC and BTS WAM network interface again
	logprint("Enabling BTS AXC & WAM interface ...\n");
  	system("C:\\BFAT\\bfat_tools\\DevCon\\devcon enable PCI\\VEN_11AB");
  	system("C:\\BFAT\\bfat_tools\\DevCon\\devcon enable PCI\\VEN_13F0");

	StopMcgTestcaseAndTransferMcgLogs('mcg' => $self->{mcg}, 'reader' => $self->{reader}, 'repository' => $self->{logRespository});	
}

...

sub getIMSIcount
{
	$self=shift;

	my $mcg_tc_log_base_dir = $self->{reader}->getTestCaseParam("mcg_tc_log_dir");
	print $mcg_tc_log_base_dir."\n";

	sleep(1000);
}

sub run
{    
    my $self=shift;

    my $count = $self->getIMSIcount();

my $mcg_tc_log_base_dir = $self->{reader}->getTestCaseParam("mcg_tc_log_dir");

my $mcg_tc_log_base_dir = $self->reader->getTestCaseParam("mcg_tc_log_dir");

$self->{reader}            = undef;

$self->reader(undef);

my $retval = test();
print $retval;

sub test{
  6;
}

int getSum(int a, int b)
{
    return a + b;
}

int x = getSum(2, 3);

sub getSum()
{
    $_[0] + $_[1];
}

$x = getSum(2, 3);