#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); use File::Basename; use File::Path; event_link("calc-du", "calc-du", "20"); event_link("qmail-update-user", "email-update-quick", "20");