sub blarg
{
     my ($foo, $bar, $bork) = @_;

     # ...
     if (computer_is_on_fire())
     {
          die "Apocalyptic end of blarg(@_)\n";
     }
}