EOF open(IsF, "<$buddyfile"); @buddylist = ; close(IsF); foreach $buddylist (@buddylist) { chomp $buddylist; print "$buddylist"; } print <

#### #### EOF #### $bloption = $INPUT{'bloption'); if ($bloption eq "add") {etc. } else { delete buddy}