DB<138> sub Basename {
           my ($file) = $0 =~ m#/?([^/]+)$#;
           return $file;
           }

  DB<139> $0="a/b"
 => "a/b"

  DB<140> $a=Basename()
 => "b"

  DB<141> $0="b"
 => "b"

  DB<142> $a=Basename()
 => "b"

##</code><code>##

  DB<153> use File::Basename

  DB<159> basename("a")
 => "a"

  DB<160> basename("a/b")
 => "b"

  DB<161> basename("a/b/c")
 => "c"

  DB<162> basename("a/")
 => "a"