RXTE data extraction script in Perl...