perl getrequest.pm http://www.google.com

my $url = $ARGV[0];
my ($host)=$url=~/https?:\/\/([^\/]+)/;