#!/usr/bin/perl
#Checking the mods
%mods=("IO::Interface" => "IO-Interface-0.97.tar.gz",
       "Net::SMTP"      => "libnet-1.17.tar.gz",
       "File::stat"     => "0",
       "IO::Socket"     => "IO-1.20.tar.gz");
	my $mods=1;
	foreach my $mod (keys %mods)
        	{
		system ("perl -e \"use $mod\" 2> /dev/null ");
			if ($? == 0)
                                {
                                }
                        else
                                {
                                $mods=0;
                                $missmod{$mod}=0;
                                }
                        }
          
	if($mods == 0)
		{
		print "\nYou have some Perl Modules missing:\n";
                        foreach my $mismod (keys %missmod)
                                {
                                print "\t\t$mismod\n";
                                }
		print "\nDo you want to install them?(y/n)";
                my $tmpvar=<STDIN>;
                if($tmpvar =~ /y|s/)
                	{
                        print "\n\tDo you want to use CPAN ?(no for the tgz files ?(y/n)";
                        my $tmpvar=<STDIN>;
                                if($tmpvar =~ /y|s/)
                                        {
                                        foreach my $mismod (keys %missmod)
                                                {
                                                system("perl -MCPAN -e \'install $mismod\'");
                                                }
                                        }
				else
					{
					foreach my $mismod (keys %missmod)	
						{
						system("./installpkg $mods{$mismod}");	
						}
					}
			}
		else
			{
			print "\nDo not installing the perl modules ...\n";
			exit 2;
			}
		}
	else
		{
		print ("\nAll perl modules already installed\n\n");
		}
