Help for this page

Select Code to Download


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