use Getopt::Long;

GetOptions ('library=s' => \@libfiles);
@libfiles = split(/,/,join(',',@libfiles));
print "@libfiles\n";
$LstCnt=@libfiles;
print "$LstCnt\n";