#!/usr/bin/perl

print "Workspace Access Times\n\n";


@clients = `p4 clients`;

foreach my $client (@clients) {
	@client_name = split(/ /, $client);
	$access_data = `p4 client -o $client_name[1]`;
	@access_time = ($access_data =~ m/Access:(.+)/ig);
	print "Client Workspace " . $client_name[1] . " last accessed on" . $access_time[1] . "\n";
}