#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

$| = 1;

my $last          = "last | grep 'console'";
my @login_records = `$last`;
chomp(@login_records);
@login_records = reverse(@login_records);
my $last_date;
foreach my $record (@login_records) {

    my ( $user, $term, $host, $day, $month, $date, $start, $end, $elapsed ) =
      split( /[\s-]+/, $record );
    if ( $date ne $last_date ) {
        print "\n";
        $last_date = $date;
    }
    $elapsed =~ s/\(|\)//g;
    print
"User: $user\tDate: $month $date\tStart: $start\tEnd: $end\tElapsed: $elapsed\n";
}