tinyurl sub for perl scripts

#tinurl sub by Ford_Lawnmower irc.geekshed.net
#Example use: print(&tinyurl("http://geekshed.net"));
use strict;
use IO::Socket;
use URI::Escape;
sub tinyurl {
  my ($host) = uri_escape($_[0]);
  my ($myurl) = "/api-create.php?url=$host";
  my $socket = IO::Socket::INET->new(
    PeerAddr => 'tinyurl.com',
    PeerPort => 'http(80)',
    Proto    => 'tcp',
  ) or die("Error :: $!");
  print($socket "GET $myurl HTTP/1.1\r\n");
  print($socket "Host: tinyurl.com\r\n");
  print($socket "User-Agent: Opera 10.4\r\n");
  print($socket "\r\n");
  while (<$socket>) {
    my $line = <$socket>;
    if ($line =~ /http:\/\//) {
      return "$line";
    }
  }
}