That still sounds a bit too hard to me. Why not just examine $^X? This command line:

perl -le "print $^X"
[download]

which, for me, prints

D:\programs\indigoperl\bin\perl.exe

so it doesn't just copy the name you called perl with, off the command line.