use strict;
use User::pwent;

my $user = shift;
my $pw   = getpwnam($user) or die "No user '$user'";

print "'$user' has", 
   $pw->expire ? ' ' : ' not ',
   "expired\n"
;