You cannot store parameters with a reference to a sub. One way around this is to do something like this.

local $SIG{'TERM'} = sub { UndoStartTime($dbh,$ToolTrackingID); };
[download]

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1