Checkpoint Firewall-1 authentication on *ix

I have written a perl script to handle authentication requests from a "Checkpoint Firewall-1" firewall. The script waits for TCP connections on port 261. When a connection is established, a dialog window is displayed which allows the entry of a Secure-ID code.

NOTE: you must have the "Tk" extension for Perl in order to use this script.