my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'} ;
my $delimiter = ":";
$delimiter = "\n";
binmode( STDOUT, ":utf8" );
binmode( STDOUT, ":encoding(UTF-8)");
print $input->header(
-type => 'application/octet-stream',
-charset => 'utf-8',
-