GOBS PROGRAM DOT PERL