What happens if you put an __END__ at the end of your program, do a seek(DATA, 0, 0) and read from the DATA filehandle instead of opening $0? E.g.:

#!/usr/bin/perl

use strict;
use warnings;

seek(DATA, 0, 0);

while(<DATA>) {
  print;
}

__END__
[download]