1#!/usr/bin/perl
2#
3# This code is used by lib/perl5db.t !!!
4#
5
6use constant FOO => "bar";
7sub s1 {
8    "main";
9}
10