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