# main program:
use strict;
use Prog1;

my @results = Prog1::main("steph_bow"); # equivalent to 'perl -w prog1.pm steph_bow'
...