stat ought to work. $0 should provide the argument for the current running program. If that doesn't work, look at perlport and perlwin32 to see what changes you need.

For some other program, just use its path/filename as argument to stat.