Help for this page

Select Code to Download


  1. or download this
    # like this:

...
my $newfile = pop @path;

# or use File::Basename, if that's appropriate to your needs
  2. or download this
    while(<$filename>) {
  3. or download this
    open( IN, $filename ) or die "$filename: $!";
while (<IN>) {