Ny Prob I Perl

hey nu fik jeg endelig en random funktion men how sætter jeg

sub random

open(TEXT,"links.txt") or die("Kunne ikke åbne fil: $!\n");
@textarray=<TEXT>;
close(TEXT) or die("Kunne ikke lukke fil: $!\n");
$link = @textarray[rand(@textarray)]);

Ind i:

#!/usr/bin/perl

use MSN;
use LWP::Simple;
my $client = MSN->new();

#######FILL THIS IN
$client->connect('(censur)','(censur)', '', {
    Status  => \&Status,
    Answer  => \&Answer,
    Message => \&Message,
    Join    => \&Join }
);


sub Status {
  my ($self, $username, $newstatus) = @_;
       
  print "Status() called with parameters:\n";
  print "  " . join(",", @_), "\n";

  # Print the status change info.
  print "${username}'s status changed from " . $self->buddystatus($username) . " to $newstatus.\n";

}

sub Message {
  my ($self, $username, undef, $msg) = @_;

  print "Message() called with parameters:\n";
  print "  " . join(",", @_), "\n";

  $cnt = get "http://magicalcheese.com/tip/data/count.txt";
  $rnd = int(rand($cnt));
  $thought = get "http://magicalcheese.com/tip/data/$rnd.txt";

  if ($msg =~ hey) {                               
      $$self->sendmsg("zup???");
  } elsif ($msg =~ /hej/i) {                             
      $$self->sendmsg("zup???");
  } elsif ($msg =~ /special/i) {                             
      $$self->sendmsg("æ    ø    å");
  } elsif ($msg =~ /ey/i) {                             
      $$self->sendmsg("zup???");
  } elsif ($msg =~ /stener/i) {                             
      $$self->sendmsg("Me 2");
  } elsif ($msg =~ /joke/i) {                             
      $$self->sendmsg("$thought");
  } elsif ($msg =~ /lol/i) {                             
      $$self->sendmsg("hehe");
  } elsif ($msg =~ /hehe/i) {                             
      $$self->sendmsg("lol");
  } elsif ($msg =~ /yeah/i) {                             
      $$self->sendmsg("hehe");
  } elsif ($msg =~ /ja/i) {                             
      $$self->sendmsg("hehe");
  } elsif ($msg =~ /jep/i) {                             
      $$self->sendmsg("hehe");
  } elsif ($msg =~ /yep/i) {                             
      $$self->sendmsg("hehe");
  } elsif ($msg =~ /hvad laver du?/i) {                             
      $$self->sendmsg("stener");
  } elsif ($msg =~ /zup?/i) {                             
      $$self->sendmsg("stener");
      $$self->sendmsg("dig?");
  } elsif ($msg =~ /me 2/i) {                             
      $$self->sendmsg("k...hehe");
      $$self->sendmsg("Det er provo");
  } elsif ($msg =~ /hvad er min mail?/i) {                             
      $$self->sendmsg("den er: $username");
  } elsif ($msg =~ /jens?/i) {                             
      $$self->sendmsg("Ja hvad er der??? :D");
  } elsif ($msg =~ /hvem er jeg?/i) {                             
      $$self->sendmsg("du er da: $username");
      $$self->sendmsg("havde du glemt det???"); 
  } elsif ($msg =~ /kender du boom?/i) {                             
      $$self->sendmsg("Jep han er flink nok min skaber skal måske op og besøge ham i sommerferien :D");
  } elsif ($msg =~ /hvor er CoLG?/i) {                             
      $$self->sendmsg("I Skole!");
  } elsif ($msg =~ /hvad laver CoLG?/i) {                             
      $$self->sendmsg("Stener I Guess!");
  } elsif ($msg =~ /kender du doodoo?/i) {                             
      $$self->sendmsg("jep skiiiie flink fyr vi plejer at haenge ud sammen og drikke cola :p");
  } elsif ($msg =~ /hvad hedder du?/i) {                             
      $$self->sendmsg("Jens");
  } elsif ($msg =~ /k/i) {                             
  } elsif ($msg =~ /hvor gammel er du?/i) {                             
      $$self->sendmsg("Jeg er 21 (L)"); 
  } elsif ($msg =~ /hvordan ser du ud?/i) {                             
      $$self->sendmsg("Jeg har brunt hAr og brune Qjne er 1,85 hQj gAr i kansas kedel dragt og traesko! :D");
  } else {                                                # Unknonw command.
      $$self->sendmsg("Undskyld men jeg forstAr ikke: $msg");
  }
}

sub Join {
  my ($self, $username) = @_;

  print "Join() called with parameters:\n";
  print "  " . join(",", @_), "\n";

  # See if there's anything queued up.
  # Deliver each message if there is stuff in the queue for this user.
  while ($_ = shift @{$queue{$username}}) { 
      $$self->sendmsg($_);
  }
}

sub Answer {

#called when the IM dialog is opened.

  my ($self, $username) = @_;

  print "Answer() called with parameters:\n";
  print "  " . join(",", @_), "\n";


$$self->sendmsg("Hey :D");


}


PLZ hjælp det er pænt vigtigt :/

//CoLG