Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl 
use Digest::MD5 qw(md5 md5_hex md5_base64);
...
    print $path;
    dir("$path");    #|| die( "Couldn't run dir($path)");
  2. or download this
    /----------------- dir(/) -----------------
************ lsdir(/) **************
...
File:   /dev
o0o0o0o0o0o file(/dev) o0o0o0o0o0o
etc