open (FLHD,"$0") ;
  my $fl_data ;
  1 while( sysread(FLHD, $fl_data , 1024*8 , length($fl_data) ) ) ;