Synopsys Interview Question

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