I was also able to replicate the problem. If you put 2 but not 3 "=cut" lines, it works. I guess somehow Perl figures that the first "=cut" is a heading.
#!/usr/bin/perl -w
use strict;
=cut
=cut
#=cut won't work with the 3rd one
print "after the cut\n";