my ($filename) = $header{'Content-Disposition'}
    =~/ filename=(("[^"]*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;