#!/usr/bin/perl
use strict;
use warnings;
my $bob =1;
my $rob =2;

roy();

print "Content-Type: text/html\n\n";
print "HELLO ROB$rob\n\n";
exit 0;

sub roy {
   print "\n\nHELLO BOB$bob\n\n";
   return;
}
__END__


HELLO BOB1

Content-Type: text/html

HELLO ROB2