#!/usr/bin/perl GAIM::register("Lights","1.0", "unload", ""); GAIM::add_event_handler("event_im_recv", "gotim"); sub gotim { system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps +num -scroll"; system "xsetleds +caps -num -scroll"; system "xsetleds -caps -num +scroll"; system "xsetleds -caps -num -scroll"; } sub unload { GAIM::print("Thanks","Thank You"); }