Select Code to Download

<Shelf_Info>
           <switch Name="Puebla01">
               <shelfType>7480</shelfType>
...
               <commentText>ATM access switch</commentText>
           </switch>
</Shelf_Info>   

my $XML = XML::Smart->new() ;
$XML->{Shelf_Info} ;
$XML->{Shelf_Info}{switch}{Name} = "$pp";
...
$XML->{Shelf_Info}{switch}{commentText} = "$comment";
$XML->{Shelf_Info}{switch}{commentText}->set_node(2);
$XML->save('test.xml') ;