package MainScript;
use strict;
use warnings;
use v5.22;
use InputData;
use Operations;
use Moose;
my $myInputData = InputData->new(

	{
		attribute => 'caller',
		
	}			
);

#here i do the sub call;
Operations->querryDatabase($myInputData);