#No longer "works"
sub ah{
  my $p = my $htmlparagraphelement = shift;
  (
     wantarray ? 
     (my @givearr = print '<',$p,'>')
     :
     (my $fizix = '</'.$p.'>')
  )
}