open(IN,"adsm_cmd q libv|");
open(OUT,">/tmp/show_library.$$");

while (<IN>) {
  next unless (/3584/);
  
  # VSarkiss stuff
  ...
}