#!/usr/bin/perl

sub canonname {
  my $ta = shift;
  my $ln = shift;
  my $fn = shift;
  
  return "$ta/$ln/$fn";
}

1;

