#! /usr/bin/perl -w
#
use strict;
use warnings;

my $choice = 1;

if ($choice) {
    if ($choice == 1) {
        # Do action 1
        require Data::Dumper; import Data::Dumper;
        print Dumper(\$choice);
    }
    else {
        # show the user a report
        require Action::Report; import Action::Report;
        print report();
    }
}
else {
    # No choice made. show help
    require Action::Help;
    print Action::Help::showHelp();
}