sub hello_world {
   print "Hello World!\n";
}
1;

##</code><code>##

#!/usr/bin/perl -w
use strict;

require 'test1.pl';

&hello_world;

##</code><code>##

Hello World!