#!/usr/bin/perl -w
# testpod.pl
use strict;

=head1 test
to be stripped
=cut

print "everything fine\n";

=head1 another test
to be stripped

=cut

print "end\n";