run perl