for (;;) {
  while (readdir OMSSEND) {
    @conffiles = grep { !/^\./ } readdir(OMSSEND);
  }

  foreach $file (@conffiles) {
    open FILE, "$senddir" . "/" . "$file" or die "Can't open: $!";
    $server = IO::Socket::INET->new(
      PeerAddr => whatever,
      PeerPort => 11,
      Proto    => 'tcp') or die "Can't connect to ...";

    print $server $stx . $padsize or die "Can't send to server $!"; 
    while (<FILE>) {
      print $server $_ or die "Can't send to server $!";
    }
    close FILE;