#!/usr/bin/perl

use strict;
use locale;

my (@users,$i); 


$i = 1;

open(PW,"/etc/passwd") or die "Can't open //etc//passwd: $!\n"; 
while (<PW>) {
  ($users[$i]) = (split /:/)[0];
  print "\n\n==========================================\n$users[$i]\n";
  system "/usr/bin/su", $users[$i], "-c /cronme";
  $i = $i + 1;
}

##</code><code>##

============
User1
[Calendar]

============
User2
[Calendar]

============
User3
[Calendar]

##</code><code>##

============
User1
============
User2
============
User3

[Calendar]

[Calendar]

[Calendar]