#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); use File::Basename; use File::Path; event_actions('password-modify', 'save-administrator-password' => 26);