open( my $fileb, ">", \$content ) or die "$!";