open my $wfh,'>',$target_file or die $!;
for(0..2){
    print $wfh getcrprrumba();
}