my $Device1 = $sam_server->object("ICF_PersistentDataSet",$device);

my $Deviceinfo = $Device1->invoke("get");



##</code><code>##

my $Device2 = $sam_server->put("ICF_PersistentDataSet",$Deviceinfo); 
or


##</code><code>##

my $Device2 = $sam_server->insert("ICF_PersistentDataSet",$Deviceinfo);