if ($function eq "open") {
  open (BLAH, "$file");
  #actions
  close (BLAH);
}
elsif ($function eq "create") {
  open (NETH, ">$file");
  #actions
  close (NETH);
}
else {
#actions
}