Select Code to Download

...
use MyModuule;
MyModuule::DoTheCLIDance( @ARGV );
exit( 0 );

sub MyModuule::DoTheCLIDance {
    my %args  = GetOptMyArgsIWant(\@_);
...
    my( $headers, $body ) = DoTheDance( $query );
    print $body; ## no headers on CLI :)
}

sub MyModuule::DoTheCgiDanceOTHER {
   my $query = CGI->new;
...
   my( $headers, $body ) = PutOnSomePants( $query );
   print $body;
}