Select Code to Download

#!/usr/bin/perl -w

...
        print "user $user is logged in at: " . join(' ', sort @$ttys) 
+. "\n";
    }
}