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);
  2. or download this
    $Text::Wrap::columns = '40';
print wrap("","",@CONTENT);
  3. or download this
    $Text::Wrap::columns = '40';
    foreach (@CONTENT) {
print wrap("","",$_);
}