Select Code to Download

#!/usr/bin/perl

...

print Dumper(\%groups);

#!/usr/bin/perl

...

$dbh->disconnect();
exit;

system("true") == 0
    and print "true succeeded\n"
...
system("false") == 0
    and print "false succeeded\n"
    or warn "false didn't succeed\n";

use warnings;
use strict;
...
        }
});