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

print "\nfoo script\n\n";

srand time + $$ + $^T;

my $action = shift(@ARGV);

die "Usage here\n" unless $action;

my $execute = new main;

my $_action = "_$action";

die "Unknown action '$action'\n\nUsage here\n" unless can $execute $_a
+ction;

$execute->$_action();

exit;

######################################################################
+########
######################################################################
+########

use Getopt::Long;
# use Other::Modules::Here;

sub new {
    my $class = shift;
    my %self;
    GetOptions(\%self, qw(various options here));
    # do more stuff with %self here
    return bless \%self, $class;
}

sub _add {
    my $self = shift;

    # we can see commandline parameters in %$self now
}

sub _mod {
    my $self = shift;

    # ditto
}

sub _del {
    my $self = shift;

    # again
}

sub foo {
    # ...
}

sub bar {
    # ...
}
[download]