#!/usr/bin/perl -w

use strict;

$|++; # disable buffering

while ( my $user = getpwent ) {
    print "\n\n", "=" x 40, "\n$user\n";
    system "/usr/bin/su", $user, "-c", "/cronme"; 
}