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