my ($stream, $path, $rturn, $depth, $display) = @ARGV;
$stream = \*STDOUT unless @_ > 0;
$path = cwd unless @_ > 1;
$rturn = 'all' unless @_ > 2;
$depth = -1 unless @_ > 3;
$display = 'rel_file' unless @_ > 4;