#!/usr/local/bin/perl

use AFS;


  $pts = AFS::PTS::new;

$pts->id("schemers");  
$pts->id(1);
$pts->id(\[a,b,c]);
$pts->id(\{a,b,c,d});

