in reply to Current file name

$0. See perlvar


True laziness is hard work