#!/usr/local/bin/perl -w

$a = "$$NETOBJ.parameter";
print ">>$a<<\n";
$a =~ s/\$\$NETOBJ\.//;

print $a;