#!/usr/local/bin/perl
# Jaime Prilusky, 2002

  $dir = $ARGV[0];
  die "Usage: $0 directory\n" unless (-d $dir);

  opendir(DIR,$dir);
  @allfiles = readdir(DIR);
  close (DIR);

  foreach $entry (@allfiles) {
    my $fullPath = "$dir/$entry";
    if (-f $fullPath) {
      $type = "FILE";
    } elsif (-d $fullPath) {
      $type = "DIR ";
    } else {
      $type = "    ";
    }
    print "$type $fullPath\n";
  }