#!/usr/local/bin/perl

use AFS;

AFS::raise_exception(1);

$flags = ascii2ptsaccess("S----");

$access = ptsaccess2ascii($flags);

print "$access\n";


