[PERL] API Auto Installer

#
#     Auto installer written in Perl for all the lazy skids who can't setup API lulz
#			Created by MrScythe
#   	   Version / for Ubuntu/ Debian Based Operating sys's
#	     Changing the name doesn't mk it ur code lulz kys
# Enjoy the Code, fuckwit

#!/usr/bin/perl

print "Welcome to The installer, Daddy Scythes Script\n";
print "Make sure all files r in the root dir dipshit\n";
print "Install packages? [Y/n]\n";
chomp($req=<STDIN>);
if(lc ($req) eq "y" || $req eq ""){
	print "Packages Install...\n";
	sleep(2);
	system("apt-get update && apt-get upgrade -y");
	system("apt-get install apache2 mod_ssl");
	system("apt-get install php-mysql php-devel php-gd php-pecl-memcache php-pspell php-snmp php-xmlrpc php-xml -y");
	system("service apache2 restart");
	system("apt-get install make -y");
	system("apt-get install gcc -y");
	system("apt-get install perl python wget -y");
        system("apt-get install perl");
	print "\nL'Installation OK !\n";
}

print "SSH2 Install? [Y/n]\n";
chomp($ssh=<STDIN>);
if(lc ($ssh) eq "y" || $ssh eq ""){
	print "SSH2 Installation...\n";
	sleep(2);
	system("apt-get install php php-pear libssh2 libssh2-devel");
	system("pecl install -f ssh2");
	system("touch /etc/php.d/ssh2.ini");
	system("echo extension=ssh2.so > /etc/php.d/ssh2.ini");
	system("/etc/init.d/httpd restart");
	print "\nVerification...\n";
	system("php -m | grep ssh2");
	print "If you see ssh2, it works!\n";
}

print "Compile scripts? [Y/n]\n";
chomp($scripts=<STDIN>);

if(lc ($scripts) eq "y" || $scripts eq ""){
	print "Compilation ...\n";
	sleep(2);
	system("apt-get install screen libpcap-devel tcl tcl-devel gcc -y");
	system("mv /root/api.php /var/www/html/");
	print "	Fixing ur php shit not executing lulz\n";
	sleep(2);
	system("sudo apt-get install apache2 php5 libapache2-mod-php5");
	system("a2query -m php5");
	system("sudo a2enmod php5");
	system("sudo service apache2 restart")
	sleep(2);
	print "Ubuntu 16 and above php installation lulz\n";
	system("apt-get install apache2 php7 libapache2-mod-php7");
	print "Verifying lulz\n";
	sleep(1);
	system("a2query -m php7");
	system("a2enmod php7");
	system("service apache2 restart");
	print "\nGo to http://YOURVPSIPADDRESS/udp.php\n";
    print "Your VPS IP Address is: ";
    system("wget -q -O - http://ip.tupeux.com | tail");
    sleep(2);
    print "\nDone ur shit lulz\n";
}