Take a look at the do function .. You can also create a module for your common code .. take a look at the "Writing, Installing, and Using Perl Modules" section of the Tutorials.. especially Including files