1 ######################################################################
  2 #   M.Gough - 2010
  3 #   A Perl Interface for WezlBot's Facebook Interaction...
  4 ######################################################################
  5
  6
  7 use AI::MegaHAL;
  8
  9 #########################
 10 # Creating new AI::MegaHAL
 11 my $megahal = AI::MegaHAL->new(AutoSave => 1);
 12 # Get the input..
 13 my $query = $ARGV[$0];
 14 # Send reply..
 15 my $reply = $megahal->do_reply($query);
 16 print("$reply\n");
 17 $megahal = undef;