002 perl