#!perl

if (<some parameter not set>) {
    <set up environment etc>
    foreach (@somesortoflist) {
        system(<thisscript><withparameter><&>);
    }
    exit;
}

<remainder of script>