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

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

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