Select Code to Download

use strict;
#use warnings;
...
    print "in continue: \$1 = $1\n";
}
print "after loop: \$1 = $1\n";

Good Record: <Band:3>40M <Call:5>KD4RR <QSL_Rcvd:1>Y <QSL_Sent:1>Y
in loop: $1 = Y
...
in loop: $1 = Y
in continue: $1 =
after loop: $1 =