package main;
use Getopt::Std;
our %opts;
getopts('fs', \%opts);

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

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