sub clear {
  $txtbox_file_name='';
  $txtbox_title='';
  $txtbox_author='';
  $txtbox_series='';
  $txtbox_isbn=''; 
 }