Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl

...
    close (DATA);
}
close (FILES);
  2. or download this
    #!/usr/local/bin/perl

...
foreach my $file ( @files ) {
    Butler( $file, "prepend", \@newstuff );
}