source: trunk/essentials/dev-lang/perl/t/lib/sample-tests/segfault@ 3367

#!/usr/bin/perl

print "1..1\n";
print "ok 1\n";
kill 11, $$;