#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); foreach my $event (qw/webapps-update ipasserelle-update bootstrap-ldap-save/){ event_link("ipasserelle-survey-init-domains", "$event", "55"); }