use File::Basename ();
local *file_basename = \&File::Basename::basename;

say file_basename( $0 );