Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl -wT
```

Select or download this

sub diehtml {
    print start_html('Error processing order'), @_, end_html(), "\n";
    exit 1;
}