#!/usr/bin/env perl6

use v6;

use Sys::Lastlog;

my $sl = Sys::Lastlog.new;

say sprintf $sl.r-format, <Username Port From Latest>;

for $sl.list -> $entry {
    say $entry;
}
