Select Code to Download

my $i; ++$i, print $i;
1

my $record = substr $data, 0, $CDRLEN, undef;

my $record = substr $data, 0, $CDRLEN, '';