True, but it's pretty easy to use a scalar variable as a file:

open(my $fh, ">", \my $text);
$decoder->decode(\*DATA, $fh);

print "decoded text = $text\n";
[download]