package functions;
use strict;
sub printsomething {
    print "hello\n";
}

1;

##</code><code>##

#!/usr/bin/perl

use functions;

functions::printsomething();