As the philosophy of perl goes you have several ways to do this.

1. Compile the code into module and call it using 'use' then you can use the name of the subroutine as just its in your code.

2. One more way than using the use statement is to include it in the @INC array, with the following syntax push "scriptname.pl", @INC

3. one more simple way to do is to use include or require statement