Select Code to Download

use strict;
use warnings;
...
    change_record($rec);
    print("username:  $rec->{m_username}\n");
}