use strict; use warnings; use myfirstaddin (); use mysecondaddin (); if (defined $ARGV[0] && $ARGV[0] eq 'second'} { mysecondaddin->import('runonce'); } else { myfirstaddin->import('runonce'); } print "hello world"; runonce(); myfirstaddin::runonce(); mysecondaddin::runonce();