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