perl script implements the basename command.