#!/usr/bin/env perl

open ZAP, "<", $ARGV[0];
open APP, ">", $ARGV[1];

while (<ZAP>) {
    chop; chop; chop;
    last if /^Timex Data Link 150 Watch$/;
}
while (<ZAP>) {
    chop; chop; chop;
    print APP pack 'H*', $_;
    last;
}