Main PERL code