$ perl -d:Trace script.pl >trace 2>&1
>> lib/script.pm:6198:         exit;
>> /usr/share/perl/5.22/File/Temp.pm:731:     local($., $@, $!, $^E, $?);
>> /usr/share/perl/5.22/File/Temp.pm:732:     cleanup(at_exit => 1);
>> /usr/share/perl/5.22/File/Temp.pm:738:     my %h = @_;
>> /usr/share/perl/5.22/File/Temp.pm:739:     my $at_exit = delete $h{at_exit};
>> /usr/share/perl/5.22/File/Temp.pm:740:     $at_exit = 0 if not defined $at_exit;
>> /usr/share/perl/5.22/File/Temp.pm:741:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /usr/share/perl/5.22/File/Temp.pm:741:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /usr/share/perl/5.22/File/Temp.pm:741:     { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
>> /usr/share/perl/5.22/File/Temp.pm:743:     if (!$KEEP_ALL) {
>> /usr/share/perl/5.22/File/Temp.pm:746:                    @{ $files_to_unlink{$$} } : () );
>> /usr/share/perl/5.22/File/Temp.pm:747:       foreach my $file (@files) {
>> /usr/share/perl/5.22/File/Temp.pm:761:                   @{ $dirs_to_unlink{$$} } : () );
>> /usr/share/perl/5.22/File/Temp.pm:762:       my ($cwd, $cwd_to_remove);
>> /usr/share/perl/5.22/File/Temp.pm:763:       foreach my $dir (@dirs) {
>> /usr/share/perl/5.22/File/Temp.pm:783:       if (defined $cwd_to_remove) {
>> /usr/share/perl/5.22/File/Temp.pm:795:         if exists $files_to_unlink{$$};
>> /usr/share/perl/5.22/File/Temp.pm:797:         if exists $dirs_to_unlink{$$};