C:\temp>cat test.pl
#!/usr/bin/perl -0777

use strict;
use warnings;

print scalar <>;

__END__

C:\temp>test.pl test.pl
#!/usr/bin/perl -0777

use strict;
use warnings;

print scalar <>;

__END__