Pregunta de entrevista de Synopsys

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