Pergunta de entrevista da empresa Synopsys

In perl, how to print the current script's file name.