#!/usr/bin/perl

while (@ARGV) {
   $filename = shift @ARGV;
   $dir = &dir($filename);
   print "Directory of $filename is $dir\n";
}


sub dir {
   local ($filename) = @_;
   local ($dir,$slash);
   $slash = rindex($filename,"/");
   if ($slash > 0) {
      $dir = substr($filename,0,$slash);
   } else {
      $dir = ".";
   }
   $dir;
}