#!/usr/bin/perl

=begin metadata

Name: tty
Description: return user's terminal name
Author:
License:

=end metadata

=cut


# implementation of tty in perl
use POSIX ();
use strict;
die "not a tty" unless -t;
print POSIX::ttyname(0), "\n";

=encoding utf8

=head1 NAME

tty - return user's terminal name