(Perl) lastupdate-aix.pl

#!/usr/bin/perl
print "lastupdate-aix.pl - Prints users' last password update times.\n";
print "(C) 2013 KIM Taegyoon\n\n";

open my $in, "<", "/etc/security/passwd" or die $!;
while (<$in>) { # assigns each line in turn to $_
        if (/^.+:$/) {print $_;} # ID
        elsif (/lastupdate = (\d+)/) {print scalar localtime $1;}
}