C:\temp>cat bar.pl
#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '+<', $0 or die "D'Oh! $!\n";
print $fh +<$fh>;

__END__

C:\temp>bar.pl

C:\temp>cat bar.pl
#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '+<', $0 or die "D'Oh! $!\n";
print $fh +<$fh>;

__END__
#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '+<', $0 or die "D'Oh! $!\n";
print $fh +<$fh>;

__END__