open (FLHD,"$0") ;
  my $fl_data = join('' , <FLHD>) ;