$fh=IO::File->new(">/tmp/foo2.txt");
printf($fh <<"__EOFOO__", $stuff, $morestuff);
Some stuff: %.4f
Some more stuff %.4f
__EOFOO__