-bash:perl$ perl caller.pl
line 6: test1
line 7: test2
line 8: test3