sub Output
{
   my $string = sprintf(@_);

   print "$string\n";

   StringFileBuilder($string);
}