/usr/share/doc/libtest-leaktrace-perl/examples/script.pl is in libtest-leaktrace-perl 0.14-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/perl -w
use strict;
use Test::LeakTrace::Script -lines;
use Scalar::Util qw(weaken);
{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
}
print "done.\n";
|