Help for this page

Select Code to Download

Select or download this
```
my $T = ($hour > 12) ? "PM" : "AM";
```

Select or download this

my $T = ($hour > 12) ? do {$hour-=12; "PM"} : "AM";