use strict;
use warnings;
use utf8;

my $str = "采样速率太高";
my $output2;

open OUTVAR2, '>', \$output2;
print OUTVAR2 $str;
close OUTVAR2;

print "\n$output2";
print "\n$str";