PROC.pm updated