$ cat one.pl
#!/usr/bin/perl
do 'two.pl';

$ cat two.pl
#!/usr/bin/perl
warn "Oops";
do "three.pl";

$ cat three.pl
#!/usr/bin/perl
warn "Poops";

$ perl one.pl
Oops at two.pl line 2.
Poops at three.pl line 2.