function pack_list,pack_filename,verbose=verbose
   if(!VERSION.OS_FAMILY eq 'Windows') then begin
      spawn_cmd = !7Z_PATH+'/7za l "'+pack_filename+'"'
      if keyword_set(verbose) then print,spawn_cmd
      spawn,spawn_cmd,/noshell,list
   endif else begin
      tar_cmd = 'tar -tf '+pack_filename
      if keyword_set(verbose) then print,tar_cmd
      spawn, tar_cmd, list
   endelse

   ; Send back the list
   return, list
end