foreach $dir (@arg_list) {
if ($dir eq "-al") { next; } # skip ls directives.
if ($dir eq "-l") { next; } # skip ls directives.
foreach $dir (@arg_list) {
if ($dir eq "-al") { next; } # skip ls directives.
if ($dir eq "-l") { next; } # skip ls directives.