open (FILE,"<$script_path/$file") || die "NFG1 $script_path/$file!\n";
@CONTENT = <FILE>;
close(FILE);
$Text::Wrap::columns = '40';
print wrap("","",@CONTENT);

##</code><code>##

open (FILE,"<$script_path/$file") || die "NFG1 $script_path/$file!\n";
while (<FILE>){
	$CONTENT .= $_;
}
close(FILE);
$Text::Wrap::columns = '40';
print wrap("","",$CONTENT);