#!/usr/local/bin/perl

@lines = split(/\n/, `ls`);

foreach $line (@lines) {
  system("fs sa $line ss2p\:admin rlidwka");
  system("fs sa $line ss2p\:webmaster none");
}