sub initilize_config
{
    my ($HR_config,$config_file) = @_;
    open (my $fr, '<', "$config_file") || die "Unable to open configuration file: $config_file $!";
    while (my $line = <$fr>)
    {
        $line =~ tr/\r\n//d;
        next unless $line;
        if ($line =~ /^(.+?)=(.+?)$/)
        {
            $$HR_config{$1} = $2;
        }
    }
}

sub prn
{
    my $HR_config = shift;
    system("$HR_config->{CMD_cp}");
    if ( $? == -1)
    {
        print "Conmmand Failed\n";
    }
}