sub Basename
{
        return $0 =~ m!/! ? $0 =~ m!/?([^/]+$)! : $0;
}