for my $module (@perl_modules) {
         
        eval "$module"; 
        if ($@) { 
            $result.="$module\n"; 
        } 
    } 
    if ($result eq '') { 
        print qq! All Required Perl Modules found\!\n !; 
    } else { 
        print qq! \nErr: The following perl modules needs  to be installed:\n $result\n!; 
       &installModules($result); 
    } 
  
sub installModules { 
 
#need pointers 
# 
 
}