#!/usr/bin/perl
use warnings;
use strict;

print "Hello, World!";

while(<DATA>){
    print $_;
}

__END__

=head1 'Hello World' Program
=over 4
=item * option 1
=item * option 2
=back
=begin html
<p>Hello, <strong>World</strong>!</p>
=end html
=cut