Select Code to Download

package General;
use AutoLoader qw(AUTOLOAD);
...
    func1 func2 ...
);
1;

#!/usr/bin/perl
# file prog1.pl
...
; # ... more perl code

# end main

#!/usr/bin/perl
# file func1.al
...
    func1(@ARGV);
}
1; # <-- important!

package General; 
# optionally put your subs here to predeclare them at package loading
sub func1 ;
1; # last line, important

#!/usr/bin/perl

use General qw(func1 otherfunc); # functions from General you want to 
+call directly

my $result = func1($arg_a, $arg_b);