$ cat 1137798.pl #!/usr/bin/perl -w use strict; use ONE; use TWO; print ONE::one, "\n"; print TWO::two, "\n"; __END__