1 #!/usr/bin/perl
  2 print "hello";
  3 use strict;
  4 use warnings;
  5 use YAML_Lib;
  6 use YAML::XS;
  7 use Run_Lib;
  8 
  9 print "hello 1";
 10 my $input_file;
 11    if(scalar(@ARGV) < 1)
 12    {
 13        print("USAGE:: $0 <Input file>\n");
 14        exit(0);
 15    }
 16 
 17    print STDOUT "Welcome to our little program\n";
 18 
 19    $input_file = $ARGV[0];
 20    print "Input File = $input_file\n";
 21    # parse the yaml file 
 22    $YAML_Lib::yaml_input = YAML::XS::LoadFile("$input_file");
 23    &YAML_Lib::parse_yaml($YAML_Lib::yaml_input);
 24 
 25    # call client functions                                                                       
 26    &Run_Lib::socket_check();