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