#!/usr/bin/perl -w # Created by Ben Okopnik on Wed Oct 31 10:45:14 EST 2001 die "Usage: ", $0 =~ m{([^/]*)$}, " \n" unless @ARGV; select undef, undef, undef, 0.001 * $ARGV[0]