Select Code to Download

#!/usr/bin/perl -w
use strict;
use 5.010;
...
$new_name->spew_utf8( @lines );

__END__