Select Code to Download

package main;
use Getopt::Std;
...

package Bar;
if ($main::opts{s}) { #do stuff }

package main;
use Getopt::Std;
...
our %opts;
*opts = \%main::opts;
if ($opts{s}) { #do stuff }

# Optionally in seperate file Opts.pm
package Opts;  
...
package Bar;
use Opts qw( %opts );  # Safe to do multiple times.
if ($opts{s}) { #do stuff }