my $foo = sprintf ...;
print "$foo\n";