1use Descriptions;
2
3my $capacity : Name(capacity)
4	     : Purpose(to store max storage capacity for files)
5	     : Unit(Gb);
6
7package Other;
8
9sub foo : Purpose(to foo all data before barring it) { }
10