In the below code why the output is not as expected. When I execute command for the first time im getting the correct output. Incase if it execute again it put some junk in front. Below is code for your reference

$ perl -pe  "print $_;" Bar.pm
USE STRICT;
USE WARNINGS;
PACKAGE BAR;
=BEGIN DEBUGGING
DIE 'BAR DIES';
=CUT
1;

-bash-4.1$ perl -pe  "print $_;" Bar.pm
BarpmUSE STRICT;
BarpmUSE WARNINGS;
BarpmPACKAGE BAR;
Barpm=BEGIN DEBUGGING
BarpmDIE 'BAR DIES';
Barpm=CUT
Barpm1;
[download]

Could you anyone advise why this happen like this? Additonal information if I use clear command then again im getting correct output for the first time. But second time onwards without clear command it adds junk again in front of each line :(