no warnings "all";

##</code><code>##

print OFILE "$name\n";

##</code><code>##

use strict;
use warnings;