#!/usr/bin/perl

use strict;
use warnings;

package testfish;

sub sub_to_do_something
{
  print "Doing something \n";
}

print "FISH\n";
1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use testfish;

print "Not done anything with the module yet\n";
&testfish::sub_to_do_something();

##</code><code>##

FISH
Not done anything with the module yet
Doing something