On Linux and other Unix systems with a similar /proc filesystem:

my ($name) = `cat /proc/@{[getppid]}/cmdline` =~ /^(\S+)/
[download]

(This assumes you don't have sneaky program names with spaces in them).

Abigail