Task ID

System

Hi.
I've a Perl script that generates jobs on the fly and executes them. In an external task i'm calling a Perl script that sends e-mail notifications to all approvers. Within this Perl script I dont have the WFID or TaskID. How can i get the taskid( I dont want to use ARGV)?
Thanks