1: #!/usr/local/bin/perl
    2: 
    3: if ($#ARGV < 0) {
    4:     die "dirname.pl: too few arguments\n";
    5: } elsif ($#ARGV > 0) {
    6:     die "dirname.pl: too many arguments\n";
    7: }
    8: 
    9: my $d = $ARGV[0];
   10: 
   11: if ($d =~ m|.*/.*|) {
   12:     $d =~ s|/[^/]*$||;
   13: } else {
   14:     $d = ".";
   15: }
   16: 
   17: print $d,"\n";
   18: exit(0);