Select Code to Download

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

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

  DB<153> use File::Basename

...

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