$ 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;