deploy written in Perl