Select Code to Download

use strict;
use warnings;
...
END:VCARD
END:VCARD
END:VCARD

$VAR1 = {
          'AGENT' => {
...
                     },
          'FN' => 'Fee'
        };