BEGIN {
	 my @modules;
   eval{"use Data::Dumper;"};
   push(@modules,"Data::Dumper") if $@;
   eval{"use Getopt::Long;"};
   push(@modules,"Getopt::Long") if $@;
   eval{"use Term::ReadLine;"};
   push(@modules,"Term::ReadLine") if $@;
   eval{"use Term::ReadKey;"};
   push(@modules,"Term::ReadKey") if $@;
   eval{"use File::Copy;"};
   push(@modules,"File::Copy") if $@;
   eval{"use File::Path;"};
   push(@modules,"File::Path") if $@;
   eval{"use Cwd;"};
   push(@modules,"Cwd") if $@;
   eval{"use IO::Socket;"};
   push(@modules,"IO::Socket") if $@;
   eval{"use bignum;"};
   push(@modules,"IO::Socket") if $@;
   eval{"use Term::ANSIColor;"};
   push(@modules,"Term::ANSIColor") if $@;
   die "Some modules are missing, please install the following modules and try again:\n -- " . join("\n -- ",@modules) if @modules; 
}