my $datatxt = 'h:\data.txt';

#print(@QUERY_RESULT);
open(my $listfile,'>',$datatxt) or die $!;
print $listfile "rumba cr + pr";
print $listfile @QUERY_RESULT;
close ($listfile); 

sub getcrprrumba
{

my $sday = $startdt->get();
my $syear = $startyr->get(); 
my $eday = $enddt->get();
my $eyear = $endyr->get(); 

    my @Pos;
    my @Pos2;
    my @Pos3;
    my $smonthsel;
    my $emonthsel;
    
@Pos= $rumbalistbox1->curselection();
    $selection2 = $rumbalistbox1->get($Pos[0]);
@Pos2= $startmonth->curselection();
    $smonthsel = $startmonth->get($Pos2[0]);
@Pos3= $endmonth->curselection();
    $emonthsel = $endmonth->get($Pos3[0]);

my @QUERY_RESULT=`ccm query -u -f  "%displayname;%crstatus"  -t problem "platform_component_name='RUMBA' and platform_module_name='Entertainment' and module_comp_version='$selection2' and (crstatus='test' or crstatus='solved' or crstatus='concluded') and test_date>time('$smonthsel $sday $syear')  and test_date<time('$emonthsel $eday $eyear')"`;

chomp(@QUERY_RESULT);

open(my $listfile,'>',$datatxt) or die $!;
print $listfile "rumba cr + pr";
print $listfile @QUERY_RESULT;
close ($listfile); 

}