starting some perl code...