Select Code to Download

#!/usr/bin/perl

...
(my $tty = readlink('/proc/self/fd/0') || 'notty') =~ s{^/dev/}{};
print "You are logged in from ",
   hostordisplay($tty) || 'nowhere', "\n";