1. #!/usr/bin/perl
2. use warnings;
3. use strict;
4. 
5. my @log ;
6.
.
.
.
25. my $success = &Get_Item_From_File ($file)
26. 
27. if ($Success) {
28.     $_ref_DB_DD_OSD = &Get_DB_OSD ($_ref_Model) 
29. }
30. else {
31.     push (@log, "Read $file not successfull" . "31") ;
32. }
.
.
.
1024 print <FILE> @log ;
1025 exit ;
.