glibc/tests/Regression/bz531576-memusage-cmd-segfaults-on-perl-scripts/p1.pl

#!/usr/bin/perl -w

use strict;

print "P1\n";