my $url1="http://xyz.com";
        my $content = LWP::Simple::get($url1);
        my $abc= new IO::Scalar \$content;
        my $csv = Text::CSV->new();
        my $data;
            while(<$abc>){
        if ($csv->parse($_)) {
                next if (/#(.*?)somedata/);#skip the first line
                my @columns = $csv->fields();#get the coulmns and the corresponding row value which are stored in each index of array
                print "Server id: $columns[0]\n\t Server_Name: $columns[7]\n";#index 0 stores 21,22 after skipping column names similarly index 2 stores 23,24
                        #my %ass=($columns[0],$columns[2])#prints 21=>23|22=>24
                                #print "@col1";# 
                        
                        
            }
			}
			---------------------------------------------------------------