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