Help for this page

Select Code to Download

Select or download this
```
package Quaint;
use strict;
...

1;
```

Select or download this

tie my $duration, "Quaint", ( 1 => "qn", 1 => "en",
         2 => "sn", 4 => "den", 3 => "tsn" );
print $duration, "\n";
print $duration, "\n";
print $duration, "\n";