#!/usr/bin/perl -w use strict; # use Quick::Fingers; use constant _onhosecond => y; # replace "y" with your chosen value before executing use constant _you_are_really_quick => z; # likewise my ($time_to_move_cursor_to_browser_stop_button, $latency, $server_reaction_time); if ( (_onhnosecond + $time_to_move_cursor_to_browser_stop_button) < (_ohnosecond + $latency + $server_reaction_time) && _you_are_really_quick ) { # 1. print "whew! Not exactly 'recalled' but good enough.\n"; } else { print "sorry!\n"; } # Time waits for no man, except, maybe, the very quick.