use strict;
use Getopt::Long;

my $a_opt;

my $options = GetOptions('a' => $a_opt);

if($a_opt) { 
  Foo1();
  Foo2();
  Foo3();
}

# Rest of program here