MDK10.1上网的问题，有关perl和python，求助！

#!/usr/bin/perl
use Socket;                #import Socket
$host = '218.90.189.1';    #server ip
$port = 8002 ;             #server port


`dhclient -r`;
`dhclient `  ;


$MYIP = `ifconfig eth0|grep inet|sed 's/^ *//'|sed 's/ /:/g'|cut -f3 -d:`;
$macaddr = "\x00\x00\x00\x00\x00\x00";
$msg = inet_aton($MYIP) . $macaddr;
$HDMAC = `ifconfig eth0|grep HWaddr|sed 's/^ *//'|sed 's/://g'|sed 's/ /:/g'|cut -f11 -d:`;   #get local mac address


print "*************************************************************
you should make sure that the  \'macaddr\' is the correct one.
and maybe the server's ip mast be modified on your condition, 
then this perl send keep_alive package at a period of 30 seconds.\n";
print "the server's ip is $host\nyour mac address is $HDMAC";
print "your ip is $MYIP";
$time = "started at ";
$time .= `date +\%H:\%M:\%S`;
print "$time*************************************************************\n\n";


$packhost=inet_aton($host);      #transfer local host 
$address=sockaddr_in($port,$packhost);  
socket(CLIENT,AF_INET,SOCK_DGRAM,17);    #bulid up a link
binmode CLIENT;     #binmode socket
while (1) {
        send(CLIENT,$msg,0,$address);   #send keep alive package
        $time = `date +\%H:\%M:\%S`;
        chop $time;
        $time .= " send ok!      you can stop it by Ctrl+C";
        print $time;
        sleep 30;
        print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";
        print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";
        } 

[root@localhost root]# python keep
  File "keep", line 2
    use Socket ;               #import Socket
             ^
SyntaxError: invalid syntax
[root@localhost root]#