open (FILE,"<$script_path/$file") || die "NFG1 $script_path/$file!\n";
@CONTENT = <FILE>;
close(FILE);

##</code><code>##

$Text::Wrap::columns = '40';
print wrap("","",@CONTENT);

##</code><code>##

$Text::Wrap::columns = '40';
    foreach (@CONTENT) {
print wrap("","",$_);
}