perl t2.pl 

before calling
line 1
line2
after calling
Add the code
line 1
line2

why blank line above?