sub foo {
  my $bar = shift || return;
  my $baz = shift || return '<p style="font-color:red">BAD</p>';

}