#!/usr/bin/perl
print "fire right retros...\n";
select undef, undef, undef, 0.1;