use NotAPragma;
...


##</code><code>##

package NotAPragma;
sub import {
   my ($package, $filename, $line) = caller;
   open my($infh), '<:raw', $filename
      or die "Can't open caller $filename : $!";
   my @lines = ( 'pad', readline $infh );
   close $infh;
   splice @lines, 0, $line;
   print "@lines\n"; ## << this is the ... after use NotAPragma;
}
1;