gistfile1.pl

sub opt_postinstalls {
    print "\nValid Postinstalls\n";
    print "------------------\n\n";
    list_postinstall();
    print "\n";
    exit 0
}

sub opt_distros {
    print "\nValid Distributions\n";
    print "-------------------\n\n";
    list_distros();
    print "\n";
    exit 0
}

sub opt_vlans {
    print "\Valid Vlans\n";
    print "---------------\n\n";
    print Dumper $vlans;
    exit 0
} 

my $opt_discs = sub {
    print "\nValid Discs\n";
    print "---------------\n\n";
    print Dumper $discs;
    exit 0
};

my $opt_partitions = sub {
    print "\nValid Partitions\n";
    print "---------------\n\n";
    print Dumper $partitions;
    exit 0
};

GetOptions (
    # referències a funcions
    'postintalls|P' => \&opt_postinstalls,
    'distros|D'     => \&opt_distros,
    'vlans|V'       => \&opt_vlans,

    # clausures
    'discs|d'       => $opt_discs,
    'partitions|p'  => $opt_partitions,
);