Help for this page

Select Code to Download


  1. or download this
        chdir($workdir) or die "Unable to enter dir $workdir:$!\n";
    ...
...
        ...
    }
    ...
  2. or download this
    use File::Spec::Functions qw( catfile );

...

$|=1;    # Turn off I/O buffering
ScanDirectory($ARGV[0]);
  3. or download this
    use File::Spec::Functions qw( catfile );

...

$|=1;    # Turn off I/O buffering
ScanDirectory($ARGV[0]);