Create get.pl

simple perl get using inet module from IO::Socket