my $temp1 = "/proj/home/me/asdf.pl";
print my_dirname($temp1) ."\n";

$temp1 = "asdf1.pl";
print my_dirname($temp1) ."\n";

$temp1 = "/asdf1.pl";
print my_dirname($temp1) ."\n";

sub my_dirname {
  my ($dir) = $_[0] =~ m|^(.*/)|;
  return $dir;
}